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DAInamic verschijnt tweemaandelijks. 






























abonnementsprijs is inbegrepen in de 
jaarlijkse contributie: 
750 Bfr 50 Gld 50 Dm 
Bij toetreding worden de verschenen 
nummers van de jaargang toegezonden. 
DAInamic redactie: 

Dirk Bonné 

Freddy De Raedt 





Wilfried Hermans 








Jules Meulenbergs functie/symbool HEX DEC 
Jos Schepens back -ѕрасе 8 8 
TAB 9 g UN 
Roger Theeuws locu A 10 . 
Bruno Van Rompaey clear screen С 12 
; CURSOR UP 10 16 
FEF EE CURSOR DOWN 11 17 
vormgeving ‘Ludo van Mechelen CURSOR LEFT 12 18 
CURSOR RIGHT 13 19 
врасе-Баг 20 32 
U wordt lid door storting van de H 30 48 
contributie op nr406-3016141-33 уап x | PE 
KREDIETBANK UESTMEERBEEK,via bank- pijltje rechts 89 137 
instelling of POSTGIRO. E E E. 
pijltje  boven 5E 94 
Abonnement loopt van januari tot pijltje onder 8C 140. 
dedenia volle blok m FF 255 
verticale lijn A 10 
horizontale li jn B 11 
U kan telefonisch contact nemen op 6 hor.lijnen 1D 29 EN 


nr 016/698623. 


ASCII — HEX — ASCII CONVERSION TABLE 


MSD 0 1 2 3 4 5 
0000 | NUL | DLE SP o e P 
0001 DC1 : 

DC2 





an 


ЕКЕН 


correspondentieadres: 
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DAInamic verschijnt de eerste week van 
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de pare maanden, 


Bijdragen zijn steeds welkom. 
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DAlnanic Westmeerbeek apnil 81 
DAI USERS CLUB | 





Beste DAlnamic-leden, 


Zoals beloofd vindt U in dit nummer een samenvattend artikel 

орел de paiemgetal len, Onze wiskundige had hiervoor 7% pagina's 

nodig.Ü0ok het antikel oven FAST GRAF TEXT ¿4 nogal lijvig uit- 
gevallen, zodat nummen 4 duidelijk een themanummen is, 

Een aantal zeen interessante antikels en рлодлатта' 4 zijn daan- 
асол naun het volgende nummer verschoven: 

-een uitvoerige studie van de prestaties van de MATACHIP(9511) 
-kaaa naken we een EPROM kwijt in onze DAL pe? 

-een utiveeriqe studie van de PADDLE-Lunctie 

-schema van RS232 interface, {лопа 5507) 

-een paan cassette-clipnpenstom lastige signalen toch in te Lezen, 
-intenrface met een SPEECH SYNTHESISER BOARD(mogelijk te beluisteren 
ορ 77 apail) 

-Ceschaijving van een goedkope EPROR -programmen 

-evaluatie van EPSON MX-80 

-JOT DRAW € FILL ENTRY POINTS 

Duidelijk nog geen gebrek aan сор4).?У7осА willen we graag onze 

nieuwe wedstrijd voorstellen: DAl-application, 

(Je verwachten een beschrijving van een project waarvoor Ч de Dülpc 
heeft ingeschakeld, We denken hier роолаё aan de handwanetoepassingen 
o£ uitbreidingen. Leuke programma's zijn natuurlijk NIET uitgesloten! 

Zong ел voorn dat ook meinden technisch geschoolden wat kunnen mee- 

nemen van uw prozal Technische schema's graag in goed contrast 

zwart/wit, Lornmaat :maximaaé A4, 

Әс winnaar wordt deze keer bepaald doon de Zeden, de prijs: 

een MATHCHIP 9511 LL! 

Kon U de verplaatsing op 77 apail niet maken? In nummer 5 vertellen 


we U wel wat сл ie horen on ie zien шал... 
We wensen ll veel Leute en lening 


de redactie 
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40 


39 
40 
41 

42 
43 
44 
45 
45 
47 
48 
49 
50 
51 

52 
53 
54 
55 
56 
57 
58 
58 


60 
61 

62 
63 
64 
65 
65 
67 
68 
69 
70 
71 

25 
73 
74 
75 
76 
77 
78 
79 


REMARK Redaktiepraatje 

BLADWIJZER 

TALK Lint voor TX-80+++kleur+++ledenlijst+++DIDACOM 
LIST Kanten К1еедје+++ѕсгееп copy+++CHRé 

PEEK&POKE Rom Routines 6 Entry Points:Introductie 
PEEK&POKE Rom Routines : Set Mode 

PEEK&POKE Cassette Interface Schema 

PEEK&POKE FLASH:een backgroundgebeuren op de COLORG-registers 
LOOK Priemgetallent:definitiet++belang+++algoritmen 
LOOK Zeef van Erastosthenes+++11 SECONDEN 

LOOK 14 SECONDEN 

LOOK 15 SECONDEN 

LOOK 51 SECONDEN 

LOOK 28 SECONDEN+++110 SECONDEN = 
LOOK 47 SECONDEN+++52 SECONDEN 

LOOK 35 SECONDEN+++47 SECONDEN 

LOOK 57 SECONDEN+++Nog meer Priemgetallen 

LOOK 447 SECONDEN 114127} SECONDEN 

LOOK Verdeling van de priemgetallen 

LOOK Tabel verdeling van de priemgetallen 

LOOK De gelukkige getallen(happy numbers) 

LOOK Wat dacht U? ....de priemgetallen tot 100 

READ COLOUR GRAPHICS uit EDUCATIONAL COMPUTING mrt 81 
READ COLOUR GRAPHICS 

READ COLOUR GRAPHICS 

LOOK Screencopy met MX-80:Inpakken(surround) E 
READ COLOUR GRAPHICS 

READ COLOUR GRAPHICS+++RS232...20mA+++Roterende Ellipsen 
LOOK FGT 

LOOK FCT parameters 

LOOK Basic&machinetaal in DAIpc 

LOOK Text Buffer&Symbol table 

LOOK BASIC Ram Map 

LOOK FGT 

LIST FGT(of ander machinetaal programma) in ARRAYS 
LOOK Toelichting FGT in ARRAYS 

LOOK FGT TABLE CREATOR 

LOOK FGT TABLE CREATOR 

LOOK ЕСТ TABLE CREATOR 

LIST FGT WORD GAME 

LIST FCT WORD GAME 80 IN OTHER UORDS... 








YALE 





LINT VOOR TX-80 *** RIBBON FOR TX-80 
Bij de opmaak van de NEWSLETTERS moeten wij altijd zorgen voor 


een goede zwarting van de copien op de printer.Vele linten geven 
na een paar beurten al erg grijze afdrukken.Een lint dat erg goed 
voldoet is het volgende:PELIKAN GR 1 13mm 1/2" zwart/black. 

Het spoel past echter niet en het lint moet met de hand opgespoeld 
worden.Daartegenover staat echter een uitstekende kwaliteit op 


redelijk lange termijn, 
me 


Een KLEURRIJKE TIP van de heer T.G.VERBEKT: 

Het kan voorkomen dat na aansluiten van een willekeurige TV er 
toch geen kleur wordt gegenereerd.Dit probleem deed zich ook bij 
mij voor.Na intensief speurwerk bleek dat als je een parasitaire 
capaciteit op het kristal (UHF-kaart) hield, de kleur wel werd 
gegenereerd.Een condensator van 10 pF blijkt meestal een afdoende 
oplossing te geven.De condensator wordt parallel over het kristal 


gesoldeerd. 


mer 


Wij plannen publicatie van de ledenlijst in het JULI/AUGUSTUS nummer. 
Mogen wij de leden die bezwaar hebben tegen publicatie van hun 


naam en adres verzoeken dit voor 1 juli te berichten aan de redactie? 


me renee 


Interesse voor COMPUTERS & ONDERWIJS ? Dan loont het beslist de 
moeite contact te nemen met DIDACOM,zie adres op achterflap. 
Dat DAIpc door de grafische еп soundmogelijkheden het onderwijs- 


toestel bij uitstek is had U toch al vermoed? 


ть 


You have ап interesting article or program in french,english or 


german language? Please send it to DAInamic for publication. 
————————————— —— ———Á———— P—— P 


11 april *** DAInamic bijeenkomst *** 11 april ***DAInamic bijeenkomst 


41 


1 
5 
18 
20 
- 38 
40 
58 
eu 
38 
160 
118 
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RE | 9 enn 


rt KANTEN KLEEDJE J. С. DELUOVE PAGE 01 


REM kanten kleedje Jj. c. delvowe 
COLORG 8 1 2 3 
MODE 6 
FOR A=YMAX#8.0 TO ΜΗΝ” 1400. 0 STEP -2.0 
FOR 1=0.0 TO 2.0ЖРІ STEF РІ/150.0 
Β.Α. 0-С05(12. 012.10. 0? 
Х-ЕжС05СІ> 
VzRESINCI? 
DOT μην ο. ҰМАЯУ2-Ұ 1 
HEXT 1 - 
НЕХТ ñ 
FOR Εξι. TO 10,0 
FOR Á=1.0 TO 15.0 
COLORG ü A 12 3 
WAIT TIME 150 
НЕХТ ñ:HExT В 
GOTO 160 


кыы ΡΟ ΤΟ ο. 


FO pen 





REM PROGRAMMA OM ALLE TEKENS ΤΕ LATEN ZIEH 
PRINT СНЕ%<122 

FOR I-J*1z848 TO 1274 T*128 
A-I MOD 16 

Үш(1-1І MOD 169-16 

IF Ізі THEM '-v-3 

CURSOR ο 22-2жҰҮ 

IF 1=12 THEN GOTO Эй 

PRINT ΓΗΚΕΕΙ} 

HERT 

Jz1-J 

IF бЕТС<>Ө GOTO S:G0TO 118 







ROM ROUTINES & ENTRY PONTS AN INTRODUCTION 








De meeste BASICROM-ROUTINES zijn NIET zo maar direct bruik- 
baar vanuit BASIC-programma's met CALLM. 
De ROUTINE-CALL moet meestal gebeuren volgens een bepaald 
protocol: - 8080 registers initialiseren 
- correcte bank switching 
- reference adressen initialiseren 

Vanuit BASIC kan je niet de 8080 registers initialiseren zodat 
meestal een paar machinetaal instructies de eigenlijke CALL 
moeten vooraf gaan. Dit "miniprogramma" is dan uel op te roepen 
met CALLM, 
De commando en functie-set is bij DAI-BASIC erg uitgebreid en 
meestal is er dan ook uel een eenvoudige BASIC oplossing,dit in 
tegenstelling tot de kortere BASIC-versies,waar je talloze keren 
moet beroep doen op CALLM, SYS of USR, 
Kennis van de ENTRYPOINTS zal dus vooral nuttig en onontbeerlijk 
zijn bij de ontwikkeling. van machinetaal programma's, 
De ROM-BANK-SWITCHING valt ook nogal eenvoudig uit :dit wordt 
bij DAIpc opgelost door de "vreemde combinatie!" RST X gevolgd 
door "DATA X",Diegenen die al met de DISASSEMBLER gestoeid 
hebben zullen waarschijnlijk al wel vraagtekens geplaatst 
hebben bij deze combinatie! 
Zo zullen we vooral ontmoeten: 

RST 1 + DATA voor UTILITY PACKAGE + ENCODE BASIC 

RST 4 + DATA voor MATH PACKAGE 

RST 5 + DATA voor SCREEN DRIVER PACKAGE 
In tegenstelling tot de meeste ENTRYPOINTS zijn er wel een hele 
boel adressen en pointers die wel erg belangrijk kunnen zijn voor 
BASIC programma's,in zoverre bekend komen deze dan ook aan bod. 
Ue starten met de routine "SSETM"=CHANGE MODE,wie nog niet erg 
vertrouud is met 8080 machinetaal kan de informatie toch bestu- 
deren door de eenvoudige routine op р.9 aan te passen.(lijn 304...) 
OPMERKING: Bij CALLM worden de registers niet automatisch 
op stack bewaard ‚een PUSH van de gebruikte registers zal dus 
meestal nodig zijn om een veilige terugkeer naar BASIC te 
garanderen.Bij verdere beschrijvingen duiden ue dit mogelijk 
aan door PUSHALL,POPALL wat dus staat voor PUSH H,PUSH B, 
PUSH D,PUSH PSW resp. POP PSW,POP D,POP B,POP H. 
| 43 





CASSETTE INTERFACE DAIpc 








+5V 
CASS 2 
{с=з 
1К I 100K 10K °? + 
I 
С C D I 
SC? Set | REMOTE 
i I 
I 
1 
@'nc 
=) | 
560 14 | 
13 | -- 
і 
= ‘ Ho ! 
27Қ( | ` Ir 
CASS 1 
150 ак? 3K9 κ 
CDC a ech 
! 1 
0.18 microF lal 
= ΓΙ 
| | 
* 22N | I 
I 
[ο | 
| 
! I 
! І 
να 
і 
(^ O ! 
bit 7 bit 0 
F00 FDD6 = T 
I PUT DUTPUT 


overgetekend van de print,dus onder voorbehoud. 


AS 





Ge 


ger [S eK 6 РО [SE ᾽ 





E Si FLASH : CHANGE COLOR 2 (4 COLOR MODES 


bt 
D 


жТО START : СНАНБЕ VECTOR τ TO HEX ДИЗ 

ΑΤΕΙ CHAHGE FLASHFERIOGD SET FERIO ЕНІН Z - МАХ FF? 
ЖРЕБІП = ñ : HO FLASHING, ALMIAYS COLE 

ЖРЕБІП = i : HO FLASHING, ALWAYS COLI 

COLCHB EGU :EFF& 

οσα CH EL! SO 


МЕСТ ΕΠΙ 


Der 


et A LA LA LA LN 
ΓΩ 


Git 


mc 
E 


ORG 
3 FERIO DATA 
z COLE рата 
F COLI Бата 
B TIM DATA 
B TFL рата 
i 
H 
E 


БА 
M ra ыз 


4S = 172 ΕΙ ΗΞΗΕΕΕΙΠΩ 


m nm 
(πι {πι 
i 
к 
ft 
ies 
бә 
e; 
por 
гг 


Ж кл Кыл 
πι OH qood Pet as ο 


COUNTER ІНГЕ EACH ΖΒ MS 
FLAG FOR COLOR B OR 1 


Επ οι πι pu dtu CG 
аба ул TEA н GA 


T 
LA 


SE 
ANDE CO L 


fel Ged Gel Cd АА 04 


oa {ΠῚ} [ΠῚ 
πι [οι (πὶ (πι (πὶ 


тұт, 
ы 






CO CG 
"п 
Ús 
11 
x 
TET ми ци ци ча ив WA ин 


IH ADRES TIM IH H.L 
PTO 


2 


m 


Er 


ALWAYS COLE 


ΓΗ co ΠῚ em fT] 
-ік--4 


к. 


ALWAYS COLL 


LA 
р 


A à fà Pet F. + rM peb ta ва petb BR fe» Beo ὑπ Ea {πι πι (πὶ DA БЫЛ DA 
Ped PO e n sn co EUR CDL ZG C. Pete Cp c SEES ETT P C.J Ж 


κ gu oma m gta gu i 
т 
m 
GI 
Γη 
Pu Ea cu x 
= m TG IT ou 
ZZ OO "s (OO wa 


JER HO COL CHANGE IF TIM<=FERIO 


Vad 

I: 

T 

4 

CG) 

ted 

me 

ΕἼ ΠῚ 

T 
Ton 

== 

rc 


TEST FLAG AMD ЛМР Tü CHANGE 


va 
i 
ы 
m 
KN] 
GA 
em 
Γη 
үг 
m 
-- 
ρον 


AF ЗЕТЕ АЕА он 
2284812 STA TEL 
inagis LDA COLA 
ΕΕΒΕ AHI Ф BF 
CEES JHF SEIL 
EHI ZETI MLI Haid 
Zedd 3TA ΡΕ. 
ΖΗΒΖΕΣ LOA — COLI 
ЕНІ dis 
SETCE ALI AB СПЫМЕЕТ COL TO COLCHTE BYTE 
I STA ΕΠ ΗΕ 
HUI H. roi PRESET TIM 
IHCE ΤΗΕ. H 
FOr H 
РОР EA 


IMF VEC? START ROM PROGRAM RESTART г 





SI πι C {πι a CQ DG ЕҚ, 


F p 45 Ф D CJJ GGG {4 GIOI CI Gi 


А 


ҰЯ! 


RNC Eeen сып 
γω CE ERN EN O ΓΙ 


z САЗ 


fe ied FO e C» suo 0 ΓΗ (ΤΠΕ. Fem δα sn ri η Ts É 


ὯΝ 
ας 


ХЕ d ooo oe ЕЕ Ж ЖЕ ЕЕ ЕЕ ЖЕ KOR: 
EME OL TAEBLE Ж 
ЖЕЖ K YOUR KRK ЕЖ qoc eoo oce e oo 


i 
[кл] 


COLCHE EFFE 
ШЕТІ ΕΤΕ 
МЕСТ pap 


CUL. CH 
SETS 


TIM 


COL1 
FERIO 
TFL 


DILA B 
ІНГЕ 
ZET 


ore, 
at Lal La 

"S 

үзі 


ake Ta pu 





аһ 
раб 
хя 
a 
со 


1 GA Gi 
{4 C4 C4 
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2 p K @ P © E 


81 FLASH : CHANGE COLOR 2 £4 COLOR MODES 


eert 
i 
DER 
m 
Us 


H 


GE 
сық 


Ft For PO кекке кекке көке ta {ТҮ πι CEN σι Ct a a ғ, 
Gs 
ο. 


*TÜ START : CHANGE VECTOR ? TO HEX 285 

ETC CHAHGE FLASHFERIOGD SET FERIO «МІН Z - Ман FF? 
XPFERIO = ñ : HO FLASHING, ALWAYS COLE 

*FERIO = i : HO FLASHING, ALWAYS COLI 

ΠΠ ΤΗΕ ЕШШ DEEG 

CO CH EGLI 4 
МЕС? EGLI 


ORG 


Mat {πι ει 


T 


DCH E DC? 
{τὶ CEE t 


pud 


1 {πι 
μα cutn 


Er Το 
5, D 









SI LD c E ES CR D 64 F3 


TFL CATA FLAS FOR COLOR а OF 1 
PUSH 
PLUSH 
155. Lal 
SR LER 
CPI 
JEW 


Ε 
ñ 

Ë 

F 207 

z FEB1 CPI 
4 

Е 

Е 


on 


a 3 
gis Bg 13 FERIO DATA 1 ER МЕ = 1202 FLñSšSHFEFIDD 
Bil 8281 85 ΓΠΕΗ͂ DATA :5 
Biz Bilgz BF CGL1 DATA zt 
Bii m ga TIM DATA 18 COUHTER ІНСЕ EACH 28 HS 
B 


im ge at, 
LA On ул 
ὧν 


= (nem 


A 


L4 hi OM en ας 


т 
х [ΤΙ 
GI 
pi ca d 


ТІМ ADRES ТІМ ΤΗ H:L 
F 


"a T Lon ы! ци ци ип 


KEN {πὶ C Xa кл 
ΓΗ͂ e ΠῚ УНЕ 
ed EA 
mu 


Мын COLE 


LA 
πι 
ted 


Pelee Raa DO Жы Ка у: 4. 


[5 dn са ба mn ντι 


Ee 
LA 


1 
Ti ALWAYS COLL 


акай ει (τ кл] 


ed Red E404 04 ded £d Ке ΚΑ ҚАН 


i CAZEES JEG © 
* БЕ CHF H. 
& БОРИ IGE IHCE ΗΠ COL CHANGE IF TIMZZFERIU 
| SABES LEA ΤΕΙ. 
: ПЕН ñ 
JE SET i TEST FLAG SHO JUMP TO CHANGE 
“Ен ñ 
ZTA TFL 
LDA COL Β 
BHI DE 
сазава ТИР SETC 
SEE] ΞΕΤΙ MUT B: 11 
220482 STA TFL 
KRISS LEA COLI 
& ΕΕΒΕ AHI DE 
СЕВ SETC ACT : ВЯ COHUERT COL TO COLCHTR ΕΤΕ 
A SZzFeBF BTS COL CHE 
D 3681 HLI [1» tat ΕΡΕΞΕΤ TIM 
К 54 ІНСЕ ІНЕ М 
B 
1 


Wb 
Р. 
1, 

DS 
celi 


[t 
ed 
Li 
OD SG 
(τι [πι αὶ 
We dee Fe ке pek ГЕЛ EN ει 


GG 


CO 
m 
-- 
[ΩΝ] 










үс 
LA 


Wi 


E hed Pet н περ 3 E σι CT] PG 


еш 





де, 
aen 


m 
A 








GO (τι πι кл] 


kau aa AE So Sa sas 
LA GA ES DS ALA 


fs bb SG GG 


CG 
dI CA CI ΟῚ 
+ + Фо 64 


El FOr H 
F1 POP Fu 
UECT START ΕΠΗ FROGEAM RESTART 7 


AAN ғар E EI 
i dm {πὶ ки к ка 


ΓΠ ігі 


S42 САГ IMF : 
i45 EMD 


прш 


Ж KOR KOR ЕЕЕ ЕЕ ЕЕ Ж ope ooo 
*š w M EDDL TAELE* 
Ж oe eoe oce poe ec veo qoc oie oe o ЕЖ 


COLCHE EFFE 
SET AIEE 
ШЕСТ [πρ 


COU ΓΗ 
SETS 


ТІМ 


T, 


COLE Hiel COLI 
ІНЕЕ ӘЗІР FERIO 
БЕТЕ. Base APL 


[πι CH 
$ Cit AN 


P gui 
GJ 04 C4 
Et v 


Γη 64 Gi 


{кл {лїп 


tel ba I 


с 
me 
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LOOK 





Problemen 
R laadsels аео 7. 
І nzichten GETALLEN | 


Ejn 
M |ethodes 


1, Definities 


- Elk natuurlijk getal dat juist twee verschillende delers heeft is een priem- 
getal, 
- Een natuurlijk getal dat geen priemgetal is, wordt een samengesteld getal ge- 


noemd, 


Gevolgen: a. 1 is geen priemgetal. 


b. 2 is het enige even priemgetal. 


с. de twee enige delers van een priemgetal р zijn 1 еп р. 


2. Belang van de priemgetallen 


Elk samengesteld getal is precies op één manier te schrijven als een product van 
priemgetallen, Men noemt dit ontbinden in priemfactoren. De priemgetallen kunnen 
bijgevolg als bouwstenen van de natuurlijke getallen worden beschouwd, Dit zou 
als gevolg kunnen hebben dat vele betrekkingen tussen natuurlijke getallen uit- 
sluitend met priemgetallen moeten kunnen worden uitgedrukt, Dit is echter verre 
van waar, Tot op heden zitten er in de theorie van de priemgetallen nog vele on- 
opgeloste raadsels, zodat het belang van de priemgetallen іп de structuur van de 
natuurlijke getallen misschien toch moet gerelativeerd worden!? 

Aan het einde van dit artikel vermelden we enkele belangrijke onopgeloste "ge= 


heimen" van de priemgetallen, 


3. Algoritmen om priemgetallen te bepalen 


Twee belangrijke algoritmen kunnen gebruikt worden om priemgetallen op te spo- 
ren: f 

а. het algoritme gebaseerd op de zeef van Eratosthenes 

b, het algoritme gesteund op het systematisch testen op mogelijke 


priemdelers 
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We zullen beide algoritmen algemeen toelichten en laten volgen door een aantal 
BASIC-programma's, gebaseerd op deze algoritmen. Alle afgedrukte programma's 
werden ingestuurd door leden van DAInamic. De redactie heeft sommige een weinig 
aangepast en van een aantal gelijkaardige een equivalent gemaakt. 

We danken in dit verband volgende leden (alfabetische orde): H Assink, M.J. Berkx, 
J Beumers, J Davids, Desausois, T de Vries, K Esveld, F Geuther, G Goethals, 


.L Moentack, J Schepens, H van Cooten en R Verboom, Onze bijzondere felicitaties 


&aan naar Luc Moentack die ons de snelst lopende uitwerking van één van beide 


 algoritmen toestuurde ( 11 seconden). 


Dit algoritme is gebaseerd op de successieve eliminatie van alle veelvouden van 
de priemgetallen tot de vierkantswortel uit 1000.Dat dit laatste voldoende is 
wordt gestaafd door het feit dat elk samengesteld getal niet groter dan 1000 
noodzakelijk een priemdeler moet hebben kleiner dan of gelijk aan de vierkants- 
wortel uit 1000, 

Deze eliminatie kan gebeuren door in 1000 (500) adressen een bepaalde code (bv О) 
te poken en daarna voor de niet-priemgetallen de adresinhoud te wijzigen. Met de 
peek-instructie kunnen nadien de gezochte priemgetallen gegenereerd worden, 

Alle gepubliceerde programma's werden uitgeprint na een IMP INT, zodat alle va- 
riabelen integers zijn, tenzij ze expliciet met de floating-point-notatie (!) 


staan aangegeven. 


Progranna 1: 


5 REM 11 SECONDEN 
10 CLEAR 1100:DIM P(250.0):PRINT CHR$ (12) 
30 INFUT "FROM i TILL  "sL S: PRINT 


40 ‘GOSUB 500:K-1 

5ο FOR M-O TO L-1i:PRINT TAB(K);PF (M) $š 

100 K-K-*5:IF K-56 THEN PRINT :K-1 

110 NEXT М: END 

300 P(O.O)=2: I-3:L-O: GOSUB 600: RS! -SGR (LS) 
510 I=I+2: IF I>RS! THEN GOSUB 700: RETURN 
520 R!=S@R CI) =FOR J=1 TO 12 

530 IF P(J)>R! THEN GOSUB 600:GOTO 510 
540 IF (I/P(J))*F(J)=I GOTO 510 


| 550 NEXT J 


600 L-L*1:FP О) -I: А=5ж1+20000: B=200004LS: C-ZXI 
610 FOR D=A ТО B STEP С:РОКЕ 0,1: МЕХТ р: RETURN 
700 L-1:FGR N=20003 TO B STEP 2 

720 IF РЕЕК(М2<>1 THEN P(L)=N-20000:L=L+1 

730 NEXT N: RETURN 


1 en LS , waarbij LS waarden kan aannemen gelegen tussen 3 en 1600, We onder- 
stellen verder іп deze commentaar dat LS gelijk is aan 1009, Het programma ге- 
serveert 1000 geheugenplaatsen om (eventueel) een niet-priemgetalcode in te 
stockeren, In de lijnnummers 500 tot 550 worden de priemgetallen tot V1000 be- 
paald en in de subroutine in 600 en 610 worden telkens de onpare veelvouden van 
deze priemgetallen als kandidaat-priemgetal weggepookt. De routine in 700-730 
slaat alle gevonden priemgetallen op in een array P, die tenslotte in de state- 
ments (60) 90-110 wordt uitgeprint. Belangrijk voordeel: alle berekende priem- 
getallen blijven in het geheugen beschikbaar. 


Programma 2: 


kkk 14 SECONDEN ЖЖЖ 


REM 14 seconden ЖЖЖ 


5 PRINT CHR$(12):FRINT " 2", 

10 CLEAR 10000:M=1000:DIM A(1):F-VARPTR(CACI)) :N=50R (М) 

20 M=M/2: FOR Ісі TO Μ:ΡΟΚΕ P+I,0:NEXT 

50 FOR Ісі TO N:IF PEEK(P+I)J=#AB THEN 100:К-2ЖІзі:РКІМТ К,:4-І 
40 J=J+K:IF J2M THEN 100:РОКЕ P+J,#AB: GOTO 40 

100 NEXT:FOR I=N+1 TO M:IF PEEK (P+1I)<>#AB THEN PRINT 2&I+1, 
110 NEXT: END 


sen corresponderen met de 500 oneven getallen die moeten worden onderzocht; in 
lijn HO wordt іп de geheugenplaatsen die horen bij de veelvouden van een gevonden 
priemgetal «АВ gezet; lijn 100 test op deze niet-priemgetalcode om de priemgetal- 
len vanaf 1/1000 tot 1000 zelf te genereren. Met deze uitwerking van het algo- 


ritme wordt 2 niet als priemgetal bekomen, zodat dit vooraf moet gegeven worden, 


Een tweede manier om de eliminatie van de priemveelvouden te bekomen, is ge- 
bruik te maken van een array. Elk element van die array kan men laten corres- 
ponderen met een oneven getal tussen O en 1000, Bij de start van het program- 
ma staat elk element van die array ор O, Door systematisch de inhoud van die 
array-elementen die horen bij de veelvouden уап gevonden priemgetallen te wij- 


zigen, elimineert men de niet-priemgetallen. 
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50 


SE 15 SECONDEN 


REM 15 seconden 


5 CLEAR 2500 

10 PRINT CHR$ (12) 

20 DIM P(250, 1) 

30 PRINT "START!!! "sPRINT 2,:FOR K=O TO 1:FOR I-1 TO 249 

40 IF P(I,K)-O THEN II-IX2-1-KX500:PRINT II,:GOSUB 100 

30 NEXT І:МЕХТ K:PRINT "KLAAR!''":END 

100 IF K=O THEN FOR J-I TO 249 STEP II:P(J,0)=1:NEXT J 

110 JJ=J-250:IF JJ<250 THEN FOR J-JJ TO 249 STEP II:P(J,12-1:NEXT 
с J 

120 RETURN 


een array P, Daar de maximale dimensie van een array-index 255 is,moet een 2-41- 
mensionale matrix gebruikt worden om de 500 oneven getallen voor te stellen, 

Deze gedwongen constructie eist zeker tijd op bij het elimineren van de veelvouden, 
Lijn 40 test ор de priemgetalcode en in de subroutine (100-120) wordt de іп- 

houd van de array-elementen die horen bij de veelvouden van een gevonden priemge- 
tal op 1 gezet (niet-priemgetalcode). Ook in dit programma wordt 2 niet als 


priemgetal gevonden, zodat de instructie PRINT 2, vereist is, 


Programma 4: 


Commentaar: De uitwerking van het algoritme volgens de Zeef is in dit programma 
analoog met deze in programma 3, Alleen correspondeert hier elk natuurlijk ge- 
tal met een array-element, zodat nu ook het even priemgetal 2 ontstaat vanuit 
het algoritme, Dit eist echter tijdens de verwerking heel wat supplementaire 
testen en bewerkingen, zodat een langere duurtijd voor de verwerking noodzake- 


lijk wordt, 


*** 51 SECONDEN XXX 


REM 51 seconden ЖЖЖ 


2 REM dit programma berekent de priemgetallen van 2 tot 1000 

3 REM in 51 seconden; er wordt gebruik gemaakt van de 

4 REM "zeef van eratosthenes" door uit een rij getallen van 

D REM 1 tot 1000 alle veelvouden van elk gevonden priemgetal 

ó REM te verwijderen; de rij getallen vormen de indices van 

7 КЕМ de "array" rs; omdat ор de dai pc de dimensie van een ”ағғау 
С > 

в REM niet de waarde 1000 mag hebben, is de ’array’ 2-dimensionaa 
C 1 

9 REM gemaakt; hierdoor wordt het programma helaas langzamer. 

10 CLEAR 5000:DIM R(3, 259) 

20 A=250: B-1000 

30 S=INT (SOR (1000) ) 

40 FOR T-2 TO B: I-INT((T-1)/0): JZT-A&I: IF RCI, Ј) =1 THEN 70 

50 PRINT T,:IF T>S THEN 70 

69 FOR К-Т TO B STEP Т: I=INT((K-1) /A) : J-K-AE IZRCOI,J)—-1:NEXT K 

70 NEXT T:END 


Algemene opmerkingen : bij het Zeefalgoritme van Eratosthenes 


- snel algoritme 
= het "moeilijke" in dit algoritme is, indien het zeven gebeurd door middel van 
een array, het verband creëren tussen de indexwaarden van de 2-dimensionale 


array en het corresponderende priemgetal. 


Dit algoritme steunt op de eigenschap dat een getal N een priemgetal із als het 
niet deelbaar is door alle priemgetallen kleiner dan of gelijk aan үк. 

De meest efficiënte vorm van dit algoritme bestaat егіп elk oneven getal tussen 
3 en 1000 te testen op mogelijke priemdelers, kleiner dan of gelijk aan zijn 
vierkantswortel. Wordt zulke priemdeler gevonden dan is het onderzochte getal 
niet priem. 


Een moeilijkheid bij de opbouw van dit algoritme is het uittesten op priemde- 
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lers kleiner dan of gelijk aan de vierkantswortel uit het onderzochte getal, 

Hoe groter dit getal wordt, hoe meer priemdelers aan bod komen, De meest ef- 
ficiënte manier hier is tijdens de verwerking een array op te bouwen met alle 
priemgetallen tot |1000. Ор deze wijze worden geen overbodige testen en bewer- 
kingen uitgevoerd en wordt de snelste tijd bekomen, 

Sommige leden trachten dit probleem "benaderend" op te lossen door alle mogelij- 
Ke priemdelers vooraf in een array te stoppen en deze dan bij elk prtemonder- 


zoek te gebruiken. 
Programma 5а: 


EER 28 SECONDEN rt 


REM 28 seconden ΧΧΧ 


5 PRINT СНЕФ (12) 

10 CLEAR 3000:DIM А(15.0) 

20 PRINT " 2°," 3", 

22 AC2.0) =5:Е=5:56=2 

29 B!=SQR (1000.0) 

30 FOR I=3 TO 999 STEP 2 

46 FOR J=2 TO 5 

20 IF I MOD АЈ) =0.0 THEN 100 
60 NEXT J 

70 IF I<B! THEN A(E)-I:E-E*1:5—-5-*1 
80 PRINT I, 

100 NEXT I 

110 END 


matisch opgebouwd; dit programma verloopt duidelijk trager indien hier niet 
beperkt wordt in de array tot de priemgetallen kleiner dan of gelijk aan 1000. 
(programma 5b) 


KKK 110 SECONDEN Xxx 


REM 110 seconden ΧΧΧ 


5 PRINT CHR$ (12) 
10 CLEAR 3000:DIM A(200.0) 

20 A(1.0)=2:E=2:S=1:PRINT " 2", 
30 FOR I-3 TO 999 STEP 2 

40 FOR J-1 TO S 

50 IF I MOD A(J)=0.0 THEN 100 
60 NEXT J 

70. A(E)=I:E=E+1:S=S+1 

80 - PRINT I, 

100 NEXT I 

110 END 


ЖЖЖ 47 SECONDEN Lat 


КЕМ 47 seconden Ett 
DIM P!(10.0):P' (0.0) 22.0:P! (1.0) 23.0: FP! (2.0) =5.0:Р! (3.00 27.0: P 
! (4.0) 211.0:P! (5.0) 213.0: P! (6.0) 217.0 
Р! (7.0) 219.0: P! (B. 0) 225. 0: P! (9.0) 229. 0:P! (10.0) 231.0: PRINT "ST 
ART" 
PRINT "2";:FOR А!-3.0 TO 1000.0 STEP 2.0:F0R B!-0.0 TO 10.0:IF 
FRAC(A!/P! (В!) ) 20.0 THEN 6 sNEXT B!: IF CURX>55.0 THEN PRINT 


А-А!:РКІМТ A;:NEXT A! 
IF А!=Р! (В!) THEN 4:NEXT A':PRINT " END":END 


GUDD AO DM 


Commentaar: In dit programma worden alle priemgetallen tot 1/1000 in een array Р 
gezet, Alle oneven getallen worden daarna op al deze delers getest. Dit geeft 
noodzakelijk een langere verwerkingstijd, Een tweede element dat een rol speelt 
in de langere tijdsduur is het gebruik van de FRAC-operator die floating-point 


variabelen eist, Deze laatste vragen meer verwerkingstijd dan integers. 


ЖЖЖ 52 SECONDEN XXX 


REM 52 seconden ΧΧΧ 


D POKE %151,1:РКІМТ CHR$(12):POKE #131,0:PRINT 
-- 10 PRINT * ЖХЖЖХЖ PRIME NUMBERS FROM 1 TILL 1000 xxxxx" 
20 PRINT :PRINT sPRINT " EXECUTION TIME = 5 
C 2 SEC." 
30 PRINT :PRINT " (without MATH-chip)"sPRINT : 
с РКІМТ 
40 CLEAR 1000 
50 DIM P! (147.90) 
60 P!tC1.0) —3.0: I!—3.0:1 !-1.0: PRINT " 2"," 3", 
70 I'-I!'*2.0:IF L!'=167.0 GOTO 120 
80 К!-БӨК(І!):ҒОК J!=1.0 TO 167.0 
90 IF F1(J!)>R! THEN L !=L!+1.O:P!(Li)=I!:P=I!zFRINT P,:GOTO 70 
100 M!=I!/P! (Л!) IF INT(M!)=M! GOTO 70 
110 МЕХТ 
120 PRINT :РКІМТ :PRINT " KKKKK TERMINATED tt" 
130 PRINT :РКІМТ " ххх ALL PRIME NUMBERS REMain in memory ΧΧΧ 
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ЖЖЖ 57 SECONDEN ΧΧΧ 


КЕМ 57 seconden ЖЖЖ 


PRINT CHR$(12):PRINT "START ING": PRINT 

FOR М-2 ΤΟ 3:K!-2.0:M'-N/K'sL'-INT(M!):IF L'«5M! OR L'-1.0 THE 
N PRINT N,:NEXT N 

FOR N-5 TO 1000 STEP 2:FOR K!=2.0+T! TO SOR(N) STEP 2.0:M!=N/K 

!sL!=INT(M!)sIF M'<>L! THEN NEXT K':PRINT N,:T'-1.0 

NEXT N 

PRINT "FINISHED" :END 

Commentaar: 


Programma's 8,9 en 10 wijken af van het algemeen voorgestelde algoritme doordat 
alle oneven getallen X tot aan VX getest worden op alle mogelijke oneven delers, 
en niet alleen op de mogelijke priemdelers tot Vx. Het tijdsverschil tussen deze 
programma's wordt vooral verklaard door het gebruik van de snelle MOD-operator 


in programma 8 en de floating-point variabelen in programma 10. 


ЖҰЖ NOG MEER PRIEMGETALLEN....XXX* 


) 


QU ADM 


КЕМ nog meer priemgetallen....XXx 
DIM 5(55.0):ҒОК K=1 TO SZ:READ S(K) 
G=G+S(K):FOR N=9 TO SOR(G) STEP Z2: IF G MOD (М) =0 THEN 3:NEXT 
М:РКІМТ 6, 
NEXT К:ҒОК K=6 TO 52:GOTO 3 
DATA 2,1,2,2,4,2,4,2,4,6,2,6,4,2,4,6,6 
»2.4,8,6,4, 6,2,4,6, 2,6,6,4,2,4,6, 2.6,4, 


6,4,2,6,4,6,8,4,2,4 
4,2,10,2,10 


5 
5 


DATA-statement wordt een getallentabel gecreëerd, waaruit alle 2-,3-,5- en 7-vou- 
den zijn verdwenen. Elk getal G dat in de tabel voorkomt moet bijgevolg nog ge- 
test worden op priemdelers van 9 tot үс. Het programma test іп feite alle по- 


gelijke oneven delers van 9 tot VG (lijn 3).Door alle data-elementen van deze ta- 


bel in een array in te lezen, kunnen steeds grotere getallen van deze tabel op 


hun priemeigenschap worden onderzocht, Het programma eindigt dan ook slechts met 
een foutmelding indien het berekende priemgetal te groot wordt om met een integer- 
variabele te worden voorgesteld. De DATA-gegevens die de eigenlijke tabel zonder 


2-,3-,5- en 7-vouden opstellen zijn de laatste 48, Telkens deze doorlopen zijn, 
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ЖЖЖ 57 SECONDEN kkx 


REM 57 seconden ЖЖЖ 


PRINT CHR$(12):PRINT "STARTING"zFRINT 

FOR N-2 TO S:kK!=2._.O:M!=NM/Ki!sL!=INT(M!):zIF L!<>M! DR L'-1.0 THE 
М PRINT М,:МЕХТ М 

FOR М-з TO 1000 STEP 2:FOR K!=2.0+T! TO SOR(N) STEP 2.O:M!=N/K 

'SL'SINTOM!0:IF M!<>L! THEN NEXT K'zPRINT N,:T'=1. O 

NEXT N 

PRINT "FINISHED":END 

Commentaar: 


Programma's 8,9 en 10 wijken af van het algemeen voorgestelde algoritme doordat 
alle oneven getallen X tot aan VX getest worden op alle mogelijke oneven delers, 
en niet alleen op de mogelijke priemdelers tot Vx. Het tijdsverschil tussen deze 
programma's wordt vooral verklaard door het gebruik van de snelle MOD-operator 


in programma 8 en de floating-point variabelen in programma 10. 


ҰЖЖ NOG MEER PRIEMGETALLEN....X** 


DU Dh 


REM nog meer priemgetallen....*** 
DIM S(53.0):FOR K=1 TO 55: КЕАр S(K) 
=G+S (K) : РОК N-9 TO SQR(G) STEP 2:IF G MOD (М)-О THEN 3:NEXT 
М:РКІМТ B, 
NEXT K:FOR ΚΞό TO S3:60TO0 3 
DATA 2,1,2,2,4,2,4,2,4,6,2 
6,2 4,4 


6,4,2,6,4,5,8,4,2,4 
2-4,8,6,4,6,2,4, 4,2,1 


.10.2.10 


— — — — — -- 


DATA-statement wordt een getallentabel gecreëerd, waaruit alle 2-,3-,5- еп 7-vou- 
den zijn verdwenen, Elk getal G dat in de tabel voorkomt moet bijgevolg nog ge- 
test worden op priemdelers van 9 tot Va, Het programma test in feite alle mo- 


gelijke oneven delers уап 9 tot VG (lijn 3).Door alle data-elementen van deze ta- 


, bel in een array in te lezen, kunnen steeds grotere getallen van deze tabel op 


hun priemeigenschap worden onderzocht, Het programma eindigt dan ook slechts met 
een foutmelding indien het berekende priemgetal te groot wordt om met een integer- 
variabele te worden voorgesteld, De DATA-gegevens die de eigenlijke tabel zonder 


2-,3-,5- en 7-vouden opstellen zijn de laatste 48. Telkens deze doorlopen zijn, 
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werden deze veelvouden uit 210 (= 2.3.5.7) natuurlijke getallen geélimineerd, 


Een aantal programma's zijn nog verder verwijderd van het basisalgoritme omdat 


alle (ook de even) getallen worden getest en/of omdat oneven delers worden opge- 
spoord tot N/2, daar waar үу N voldoende is, 


We publiceren ook hiervan enkele programma's om de lezer te tonen dat in dit 


geval de verwerkingstijd snel toeneemt, Het al dan niet gebruik maken van inte- 


ger-variabelen heeft ook in dit geval duidelijk invloed op de duurtijd. 


KEK 447 SECONDEN ЖЖЖ 


10 
20 
50 
40 
DO 
во 


100 
105 
110 
120 
130 
140 


REM 447 seconden ЖЖЖ 


REM XXXXX inleiding priemgetallen ЖЖЖЖЖ 
MODE Os PRINT CHR#(12):COLORT 8 800 
CURSOR 15,12:PRINT "PRIEMGETALLEN TOT 1000" 


FOR 


COLORT воо 
COLORT 8 8 O O:WAIT TIME 20 
NEXT Z!:COLORT 8 O O O:FRINT CHR$(12) 


Z!'-1.0 TO 10.0 


O:WAIT TIME 30 


REM ЖЖЖЖЖ het programma ЖЖЖЖЖ 
PRINT " 2.0", 


FOR 


А!-2.0 το 1000.0 


FOR В!-2.0 TO INT(A!/2.0) 
IF FRACCA!/B!)=0.0 THEN NEXT A! :END 
NEXT B!:PRINT A!,:NEXT A! 


277 SECONDEN XXX 


REM 277 seconden ЖҰЖ 
B'-2.0:PRINT "S":PRINT 2.0,:ҒОК N!=3.0 TO 1001.0 STEP B!:FOR K 
I=B!+A! TO N!/B! STEP B':M'zN'!/K':IF M!<>INT(M!) THEN NEXT: 


PRINT М!,:А!-1.О0:МЕХТ 


NEXT 


N':PRINT 


"Е" 


4, Aantal priemgetallen en hun verdeli in de natuurlijke getallen 





De verzameling van de priemgetallen is oneindig. Deze stelling werd reeds door 
Euclides bewezen, De spreiding van de priemgetallen in de verzameling van de 
natuurlijke getallen wordt nochtans groter naarmate de getallen groter worden. 
Het eerste Priemgetallen-Theorema beschrijft de asymptotische dichtheid van de 
priemgetallen als volgt: 


А x 
lim ш 


x > 00 1пх SC? 


Hierin stelt т(х) het aantal priemgetallen voor niet groter dan х. Dit theore- 
ma werd іп 1895 bewezen door J Hadamard en C de la Vallée-Poussin. Het stelt 
dus dat het aantal priemgetallen kleiner dan of gelijk aan een gegeven getal x, 


voor zeer grote x-waarden gegeven wordt door x/1nx, 


Volgens het tweede Priemgetallen-Theorema kan de asymptotische dichtheid van 


de priemgetallen beschreven worden door: 


lim n(x) = 4 
x — o ri at 
2 lnt 


Dit betekent dat voor grote waarden van x het aantal priemgetallen kleiner 
dan of gelijk aan x gegeven wordt door de bepaalde integraal Б dt/1nt, 
Voor de onbepaalde intergraal vindt men volgende ontwikkeling: 


SE = In(inx) + Inx + Ga) + Gee) + (asf! , 


Int hs Ve 


Met een eenvoudig programma kan met de DAI pe deze formule geëvalueerd worden 
tot exponent 19, zodat we in staat zijn om voor verschillende waarden van x 


de berekeningen uit te voeren. 


In onderstaande tabel hebben we voor een aantal x-waarden т(х) opgegeven, en 


hun respectievelijke benaderde waarden voor x/lnx en i5 dt/lnt berekend, 


2,885 0 
4,343 5,120 


21,715 29,081 
144,765 176,563 
205,108 246,762 з" 





58 


2000 
2500 
3000 
3500 
4000 
1,500 
5000 
5500 
6000 
` 6500 
7000 
7500 
8000 
8500 
9000 
9500 
10000 
15000 
20000 
25000 
30000 
35000 
1,0000 
4.5000 
50000 
55000 
60000 
70000 
80000 
90000 
100000 


303 
367 
430 
489 
550 
610 
669 
725 
783 
842 
900 
950 
1007 
1059 
1117 
1177 
1229 
1754 
2262 
2762 
3245 
3732 
4203 
4675 
5133 
5590 
6057 
6935 
7837 
8713 
10095 


x/1nx 


263,127 
319,528 
37%, 702 
128, 894 
482,273 
534, 961 
587,048 
638, 606 
689, 694 
740, 356 
790, 633 
840, 557 
890, 155 
939,453 
988, 470 
1037, 230 
1085, 740 
1559, 932 
2019,491 
2h68, 74 
2910, 09 
3345, 09 
3774, 78 
4199, 95 
4621,17 
5038, 9 
553, 5 
6274, 51 
7086, 05 
7889, 5 
8685, 889 





15 dt/1nt 


313,751 
378, 541 
41,67? 
503,501 
564,242 
624,068 
683,102 
741 41 
799,164 
856, 328 
912,991 
969,192 
1024, 97 
1080,35 
1135,38 
1190, 06 
1244,43 
1773, 96 
2280,98 * 
2776,37 
3261,25 
3737, 58 
4206, 73 
4669, 72 
5127,29 
5580,05 
6028, 5 
6913,5 
7785,92 
8553,56 %% 


% vanaf hier moet exponent 18 in de ontwikkeling worden genomen 


** vanaf hier geldt exponent 17 


5. Enkele onopgeloste problemen in de theorie der priemgetallen 


C en 





x 
x 
| 


а. Als een getal p priem is en pt2 eveneens, noemt men dat getallenpaar een 


priemgetallentweeling. De gemiddelde afstand tussen twee priemgetallen neemt 
steeds toe, Priemgetallentweelingen komen bijgevolg ook steeds zeldzamer voor. 
Houdt dit verschijnsel ooit op of is de verzameling van de priemgetallentweelin- 
gen oneindeig ? Is(1000000009649 , 1000000009651 )де grootste priemgetallentwee- 
ling ? 


b, Een tweede belangrijk raadsel is het Vermoeden van Goldbach, Dit kan als volgt 
geformuleerd worden: elk even getal groter dan 2 is de som van twee priemgetallen, 
Dit vermoeden is nog niet algemeen bewezen, Toch heeft men nog geen even getal 


gevonden waarvoor het niet waar is, 


6. Een toemaatje: ooit al gehoord van de "gelukkige getallen" ? 


Net zoals de priemgetallen kunnen de gelukkige getallen eveneens met een zeef- 
proces worden bepaald, Dit algoritme kan als volgt worden omschreven: 
1. schrijf alle natuurlijke getallen op tot 100 ( we onderstellen hier dat 
alle gelukkige getallen tot 100 worden bepaald) 
2, elimineer elk tweede getal: op deze wijze verdwijnen alle even getallen, 
De tabel die overblijft is : 
1 3 5 7 9 11 13 15 17 19 21 23 25 27.... 


2. Іп plaats van nu elk 3-voud te elimineren zoals bij de zeef van Eratos- 


thenes, schrappen we nu elk derde getal, De tabel die ontstaat is dan: 
1 3 Y 9 13 15 19 21 25 ZU eee 


3, In deze tabel staat na de 3 het cijfer 7, zodat nu elk zevende getal wordt 


geschrapt. We bekomen: 


5077 25 Ча 985 Ὁ 25. d* 5 οἱ B he, ln 


4, Vervolgens wordt elk negende getal geëlimineerd: 
1 3 7 9 13 15 21 25 31 33 37 43 ba 49 5 55 63. 


5, Na eliminatie van respectievelijk elk 13de,15de en tenslotte elk 21ste getal 
worden de gelukkige getallen tot 100 bekomen: 


43 49 51 


1 2 ? 9 13 15 21 25 31 33 


63 67 69 73 75 79 87 93 99 


κο 
3 


Deze tabel bestaat uit 23 gelukkige getallen, waarvan er g priem zijn en 14 
samengesteld, 

In het door de redactie onderzochte gebied (gelukkige getallen tot 100) is het 
Vermoeden van Goldbach overdraagbaar naar de gelukkige getallen: d.w.z. elk even 


getal is de som van twee gelukkige getallen, Is dit steeds zo ? 5 


2. Enkele programma=ideet jes 


1. Een programma dat tot 1000 alle priemgetallentweelingen afdrukt. 


2, Een programma dat voor alle even getallen groter dan 2 en kleiner dan 1000 
de twee priemgetallen afdrukt waarvan het de som is. ( Vermoeden van Goldbach) 


3, Een programma dat tot 1000 alle gelukkige getallen afdrukt, 


4, Een programma dat tot 1000 alle getallen afdrukt die priem en gelukkig zijn. 
Alles opsturen naar het gekende redactie-adres:: 


8, Slot 


Voor die enkelen die na het uittesten van alle programma's uit dit artikel de 


priemgetallen tot 1000 nog niet uit het hoofd kennen, drukken we ze als besluit 
af: ksk PRIEMGETALLEN TOT 100044 


| : 5 7 11 
E 19 23 29 

51 ar 41 47 47 

25 2 él 67 ?1 

DE Pu 83 =) ar 

101 105 ій? 109 11 
27 131 137 139 149 
151 157 163 167 173 
(2 181 191 195 197 
199 211 223 227 228 
233 229 241 251 257 
265 263 27 277 281 
283 295 507 311 313 
M? 551 557 347 249 
355 359 367 573 375 
өз 259 хә? 401 айа 
413 421 421 433 аха 
445 443 457 461 463 
467 473 467 431 ача 
әй5 SE 52 523 541 
547 557 567 563 с? 
nn 587 592 599 601 
Sib 615 617 619 821 
641 647 647 ESI 659 
661 672 еру 685 езі 
7ü1 709 719 PIU 255 
rad P4 Pol Por Pet 
res WA үші үзу gua 
ΞΕ 821 823 827 829 
853 Eus B57 859 863 
arr zel 223 сау ап? 
211 219 a3 аз? 241 
347 - Bas авт ari aT? 
383 aal 997 


ARLY personal computers, say 
E around 1976, were very limited 
in their graphics capabilities. A 
video screen capable of displaying 16 
lines of 24 characters was considered 
normal. There was, therefore, little 
possibility of using a video screen to 
present other than basic alphanumeric 
information. 
The introduction of memory-mapping 


techniques, where the individual 
character blocks on the screen 
corresponded to single memory 


locations, allowed more flexibility and 


machines like the Pet introduced 
reasonably-sophisticated graphics at a 
low price. 


Since those days, two developments 
have occurred which could revolutionise 
the approach to the presentation of 
information on a screen, especially in the 
educational field. The first development 
was high-resolution graphics. Instead of 
the more usual 25 x 40 picture element 
(pixel) resolution, high-resolution 
graphics have up to 256 x 392 pixels. 
That allows much higher definition of 
diagrams on the video screen. For 
educational use, the advantages of 
high-resolution graphics are ebvious. 

The second development is inexpen- 
sive colour graphics. That development 
is so new that there are still many 
arguments about the uses and 
advantages of colour in graphics. 

Most graphics systems work in simitar 


Atari 800. 
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“COLOUR GRAPHICS 


Inexpensive aids to 
presentation 





ways. Whatever form of output is used. 
nearly every video display employs 
similar methods of generating the 
characters. A screen which can display 
25 lines of 40 characters requires 1,000 
memory locations to store the 
information. In the so-called memory- 
mapped systems, each character position 
on the screen corresponds to a particular 
memory location in the video memory. 

All the computer does is to transfer 
the contents of the memory on to the 


by Robin Bradbeer 


screen. As each memory location can 
store one byte of eight bits, that means 
that 23 or 256 characters are available. 

The most common method of 
encoding characters is the ASCII 
system. As it has only seven bits of 
information, only 128 characters are 
available. Most personal computer 
systems add another 128 to make up the 








wé? 


i MN 


number and they do so by creating 
graphics characters. 

There is no standard for them so that 
Pet graphic symbols. for example, have 
different codes from Sorceror graphics. 
The codes are interpreted into letters 
and graphics symbols by a ROM called a 
character generator. It is clear that all 
this memory detracts from the amount of 
memory available for use in the system 
by the user. 

Another method of generating video 
information is to split the screen into a 
series of discrete points, say 312 x 210. 
That requires a good deal more memory. 
Each point on the screen then 
corresponds to one bit in the memory, 
hence eight points require one byte of 
memory; 312 x 210 points therefore 
need 8K bytes. 

The high-density graphics capability is 
available on a few computers, like the 
Apple II. It is a useful facility for 
educational users but unless complicated 
graphical analyses are needed, it is not 
ideal for business use. 


Limitations 


To use graphics to the optimum effect 
involves adapting to the machine 
language of the computer. It is possible 
to do so from Basic with systems which 
have a character generator ROM but 
that limits the user to the characters 
available on the computer. 

On the Pet, for example, it limits a 
user to 128 characters within the 25 x 40 
format. Other systems have similar 
restraints. 

Those with high-resolution graphics, 
however, like the Apple II or 380-Z, 
offer certain facilities which allow users 


‘not only to create their own characters 


but also to vary the number of pixels 
available for use. The more memory 
needed for graphics, the less is required 
for program memory. Consequently 
high-resolution graphics requires a 

system with a good deal of RAM. 
High-resolution ` black-and-white 
graphics are available on a number of 
computer systems. The favourite 
method is to have a board which plugs in 
to the main computer system. That is 
how Research Machines, Acorn and 
most bus-structured systems work. 
(continued on next page} 





61 


62 


COLOUR GRAPHICS 


(continued fram previnus page) 


Other systems have а built-in 
high-resolution capability. They include 
the Texas Instruments TI 99/4, DAI, 
РСІ, Atari 400 and 800, Apple II and 
ITT 2020. Coincidentally, thev are also 
machines which use colour. 


Historically, colour graphics was 
available only as an expensive extra to 
mainframe or minicomputers. They 
needed high-quality colour monitors to 
give the definition required. The latest 
colour computers provide the video 
output as a normal TV signal and use 
normal colour television sets. Although 
this is cheaper, it restricts the resolution 
available. 

With colour graphics. in its simplest 
form, at least two bytes are needed to 
store the information in each pixel, The 
first byte will define the character, the 
second the colour. In practice that is 
achieved by using less memory, with four 
bits — a nibble — being used to store the 
colour information. So most systems 
have the capacity to work with 16 
colours. 


Six systems 


Of the six systems generally available 
оп the U.K. market, three have been 
around for some time. The Apple П — 
and its later ITT equivalent — was the 
first low-cost colour system. The version 
available in the U.K. has the ability to 
split the screen into graphics or text or to 
partition the screen so that the lower four 
lines arc text and the upper 21 are 
graphics. 

Its maximum resolution 15 280 x 192 
points. Each point is addressable and the 
graphics generation requires each point 
to be programmed, although some 


380-Z. 
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pour teat nend provided at the foot of each split screen. 


Table 1 — Graphics options for Atari 800. 


commands from Basic permit that to be 
achieved easily. Lines can be drawn and 
individual dots specified with single 
commands. 

The Apple has many programs 
available and is a favourite with тапу 
people. It is beginning to show its age, 
however. and is now more expensive 
than some of its newer competitors 
offering better graphics facilities, 

The 380-Z has a plug-in graphics 
board which gives a resolution of up to 
319 x 191 points. with a choice of four 
grey levels or colours for each point. 
Sixteen grey levels or colours are 
possible with a resolution of 159 x 95 
points. It is possible to mix graphics and 
text and the plug-in board requires 16K 
bytes of RAM to function properly. 

In the 319 x 191 mode, the user can 
program four options per point. as therc 
are two bits per point. Normally onc 
would use black and three grey levels or 
background colour and three colours. 
Thus it is possible to plot three graphs of 
different shades or different colours. 

The relationship between the choice 
programmed at a point — 0, 1, 2 or 3 — 





x 





ard the output is defined by a high-speed 
RAM which acis as a look-up table. 
producing cight outputs. In black-and- 
white systems those outputs drive an 
eight-bit digital-to-analogue converter. 
In colour systems the eight hits drive 
scparate two-bit D-A channels for the 
different primary colours. 

The contents of the look-up table 
RAM are under software control. so the 
user can program a particular set of grey 
scales or colours. and can change that set 
Im а short time between successive 
television scans. 


Identical 


The board can be programmed to 
provide a 159(Х) x 95(Ү) array of 
pixels. In that mode the area of the 
screen covered by graphics is identical to 
that in the 319 x 191 mode. so that four 
lines of scrolling text can also be 
ohtained if the graphics and 380-Z VDU 
hoards are coupled. 

In the 159 x 95 mode. four bits are 
used to define each point, resulting in 16 
choices of output. usually grey levels or 
colours In addition. the graphics board 
stores two separate 159 x 95 mode 
pictures. so that one can be displayed 
while another is being generated. 

The use of a look-up table. as well as 
allowing the user to select four or 16 grey 
scales or colours from a very wide range 
of choices, also results in features which 
may at times be useful. For example, in 
the 319 x 191 mode one can arrange for 
the two bits per pixel to correspond to 
two scparate pictures. Either of the two 
pictures can be displayed. or both 
superimposed. or one masked by the 
othcr or one masked bv the inverse of 
the other. 

In the 159 x 95 mode. each of the two 
stored pictures can be arranged to be one 
picture with four bits per pixel. two 
pictures with two hits per pixel. or four 
pictures with one bit per pixel. with 


(cennnued on next page) 
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(continued from previous page) 


superimpositions ог maskings as 
described for the 319 x 191 mode. 

The look-up table features may be of 
use to scientists and mathematicians in 
allowing them two separate super- 
imposable 319 x 191 pictures, or to 
producers of computer-aided learning 
material who want selective masking, or 
changing foregrounds with constant 
backgrounds. 

The Texas Instruments TI 99/4 was 
conceived originally as a home computer 
but with its integral sound generator and 
speech synthesiser. Americans are using 
it in schools extensively. Its colour 
graphics capability is impressive — up to 
192 x 256 points in 16 colours. You can 
also program your own characters or 
graphics shape. called sprites, and even 
give them priorities so that they know 
which sprite is on "top" when two 
overlap. 

Unfortunately, it does not work on the 
European colour standard and requires 
an expensive American-standard TV set. 
TI will launch a PAL version this 
summer but is keeping a low profile at 
the moment. 


Recent arrival 


The Acorn Atom has reached the 
market only recently and its colour 
graphics plug-in module has not really 
been used widely enough to generate 
much comment. It has a resolution of 
256 x 192 in black and white and 
generates three-colour graphics up to 
128 x 192 pixels. 

The Atari 800 has been on the market 
in the States for about a year and has 
been the subject of very favourable 
comment. At the moment it suffers from 
the same problem as the TI 99/4 but 
PAL versions are beginning to make 
their way to Europe and should be 
available generally shortly. 

The Atari 800 and its cheaper brother, 
the 400, typify the way that colour 
graphics is progressing. Many American 


Table 2 — Mode definition table, DAI PC1. 
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Apple. 


and Japanese companies are now 
supplying colour as standard. and at a 
reasonable price. 

The Atari 800 costs around £800 but 
sells for 5800 in the States. It should be 
available here for around £500 if enough 
are sold. The Atari 800 has a resolution 
of 320 x 192 pixels in its highest 
graphics mode. with up to four colours 
available. 

Like the Atari, the DAI and ОСІ are 
two of the latest machines on the U.K. 
market, so it is worth looking at them in 
greater detail. Like the TI 99/4 and 
Exidy Sorcerer. the Atari 800 has a 
plug-in ROM-pac which allows the user 
to configure the machine easily. An 8IL 
Microsoft Basic pack is standard. 
although other language options are 
becoming available. 

RAM is in 16K modules which plug 
into slots in the body of the machine. The 
operating system of the computer is also 
in a plug-in ROM, a 10K module. The 
potential for future upgrade therefore is 
clear. The video output plugs into a 
normal colour TV and it has a socket for 
a video recorder. Other peripherals 








available are disc drives. printers. an 
RS232C interface. games paddles and a 
light pen. 

There is an on-screen editing facility 
and cursor control is possible directly 
from the keyboard; clear screen and tab 
controls are also provided. All keys 
repeat if held down for more than one 
second. 

The screen format can be varied from 


12 x 20 to 320 x 192. Table one 
indicates the options available. In 
normal text mode. 24 lines of 38 


characters is the "dafault^ situation. It is 
also possible to have line deletion and 
insertion. as well as the more usual 
character deletion and insertion. 


Enormous potential 


The cassette recorder uses two 
channels for recording. ‘One is digital. 
the other audio. Consequently a special 
tape recorder is required. Digital data 
transfer is at 600 baud. The audio 
channel allows speech to be interlinked 
with data. the sound emitting from the 
TV loudspeaker. The potential for 
educational use of the facility is 
enormous. 

The Atari 800 has four integral sound 
generators for musical tones or game 
sounds. They cover four octaves and 
have variable volume and tone. There is 
a small internal loudspeaker. 

The software available within the 
Basic for graphics programming is fairly 
limited. Although it is possible to select 
from 128 colour/luminance combina- 
tions. only five colours can be displaved 
at one time. The more successful 
graphics commands include DRA WTO. 
which draws а line from the 
previously-plotted location to the 

(continued on page 23) 
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COLOUR GRAPHICS 


(continued from page 21) 


defined co-ordinates and SETCOLOR. 
which is used to define one of the five 
colours available. 

Although the DAI personal computer 
is only now beginning to appear on the 
U.K. market. it has a long and 
interesting history. Developed originally 
as a contender in the TI personal 
computer stakes. only to be jettisoned in 
favour of the 99.4. the DAI machine has 
a real multi-national flavour — it was 
designed by two British graduates and 
built in Belgium. 

Data Applications is an industrial 
control company with many years 
experience of designing and building 
systems and that is evident in the 
personal computer. It has obviously 
been designed by engineers with a 
definite application as a home computer. 


Easiest to program 


The basic computer has a 24K ROM 
containing the Basic interpreter. 
machine language utility and general 
housekeeping routines. and 48K of 
RAM. There is an optional 9511 math 
chip which provides hard-wired 
arithmetical operation. 

The DAI personal computer obvi- 
ouslv has been designed to provide not 
onlv the best colour graphies capability 
for less than £1.000 but also the easiest 
programmability of those functions. 

Output ports at tbe rear consist of two 
analogue paddle inputs: RS232C 25-pin 
connector: two cassette interfaces; a 
34-pin DCE-BUS. an industrial control 
bus; and. internally. a 50-pin 8080 bus 
which bears a resemblance to the S- 100 

- bus and a UHF video connector. 

The Basic resides in 24K ROM and is 
one of the most powerful available at this 
level. With the utility program and 
colour control options the 24K ROM is 
well-used. The svstem is supplied with 
two manuals and connecting leads for 
video and tape recorder. The first 
manual is а 72-page introductory text 
aimed at the complete novice. 

Some could complain that the manual 
16 somewhat trite — it starts by telling 


Table 3. 


Graphical 
resolution 


65 x 88 
130 » 176 
260 > 352 
240 - 528 








vou how to plug-in and switch-on — but 
itis better to under-estimate the potential 
users’ knowledge than vice-versa. 

From that simple beginning the user is 
introduced to the major attribute of the 
DAI. the colour graphics. which are 
ridiculously easy to operate. There are 
16 colours which. with the colour control 
on a TV turned down. are a perfect grev 
scale between black and white. The 
colours are labelled Ото 15. 

The screen can be defined in 13 ways 
— from 24 x 60 characters. through a 
mixture of graphics and text to 336 x 
256 dots. Table two shows the 
configurations available. In each case 
the background and foreground can be 
defined precisely. using the COLORT 


and COLORG commands. Each 
configuration needs different RAM 
requirements. 

A detailed look at the graphics 


generator is useful. although most other 
machines use a similar system. At the 


'start of each line on the TV screen. two 


bytes are taken from memory which 
define the mode for that line and may 
update the colour RAM bv two bytes. 
They are the Control and Colour bytes. 
The rest of the line is colour or character 
information and the number of bytes 
used for it is a characteristic of the 
particular mode. 


Definition 


The screen can operate at a number of 
different definitions horizontallv — e g.. 
dots scan. In the highest-definition 
graphics mode there are 352 visible dots 
across the screen. The two lower 
definitions have respectively one-half 
and one-quarter of that number. There 
are about 520 scans visible on a 625-line 
television set and the screen hardware 
can draw only. at minimum, two scans 
per line. due to the inter-lacing. That 
gives a maximum definition of 260 by 
352, which is close to the 3:4 ratio of the 
screen sides. Thus circles are round. 

Characters are fitted on to the grid by 
using eight columns of dots per 
character. the dot positions being 
defined for each character by a ROM. 
That allows 44 characters per line 
maximum — 22 or | lin lower definition 


Available 
program and 
work space 


46.0K 
42.0K 
25.0K 
16.0K non-square 


The above are examples of the RAM requirement for possible ali-graphics screen 
configurations. Usage will be affected by the screen driver package used. 


Ten 
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modes. A fourth horizontal definition 


provides for a high-density character 
mode with 66 characters per line. 

Sixteen colours. including white and 
black. can be displaved bv the svstem. 
Whenever a four-bit code is used to 
describe a colour. it selects from that 
range of possibilities. In some modes — 
characters and or four-colour graphics 
— a set of four of the colours. not 
necessarilv distinct. is loaded into a set of 
colour registers. 

Anv two-bit code describing a colour 
selects an entry from the registers. 
Vertical definition is set bv a four-bit 
field in the control byte. In graphics 
mode that permits repetition of the 
information to fill any even number at 
scans from 2 to 32. 

In character mode it defines the 
number of scans occupied by each line of 
characters: thus the vertical spacing on 
the screen can be changed to allow 
anything between an 8 х 7 — the 
sensible minimum — and 8 >» 16 
character matrix. giving between 35 and 
15 lines of characters on the screen. 


Background colour 


Background or letter colour may be 
changed from the Basic. When operating 
from within Basic. three drawing 
facilities can be used. The screen is 
defined in X and Y co-ordinates. XMAX 
and YMAX being defined by the mode 
chosen. A dot may be placed at 
co-ordinates X. Y by programming 
DOT X. Y C. where C is the defined 
colour of the dot. 

A line is drawn by defining the 
beginning and end co-ordinates. c.g.. 
DRAW XI. ҮІ. X2. Y2 C will draw a 
line of colour C between ХІ. YI апа X2. 
Y2. FILL ΧΙ. ҮІ X2. Y2 draw a 
rectangle with opposite corners ΧΙ. Y1 
KID, 

Eight other colours are available as 
well as the 16 mentioned. The others act 
on the machine code directly and allow 
the graphics to be changed very simply 
under program control. The user 
effectivelv is implementing complicated 
machine code instructions from simple 
Basic statements. 

Allied to the graphics capability are 
the three programmable sound synth- 
esisers. They allow the volume and 
frequency of each sound channel to be 
defined from Basic and even provide the 
option of tremelo and glissando. Volume 
is also set from the Basic commands. The 
SOUND command specifies a channel 
to which it applies. an envelope to be 
used. the required volume and 
frequency. A simple sound command 
would be: 

SOUND 0 1 13 0 FREQ (1000) 


(continued on next page) 
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(continued from previous page) 


That would set channel 0, using 
envelope number 1. at a volume of 15 
and frequency 1.000Hz. The 
ENVELOPE statement allows the 
volume of a note to be changed rapidly, 
in the same way as a musical instrument. 
Thus the rise and fall in volume for a 
note can be specified. The command 
specifies a set of pairs of volume and 
time. The volume constants are in the 
range 0 to 15 and the time is in units of 
3.2 milliseconds. 


Edit facility 


For example. the command 
ENVELOPE 0 10.2; 15,2; 14,4; 12. 5; 
8. 10: 0 sets a volume envelope as shown 
in the diagram. A white noise generator 
is also provided. 

Within Basic is an interesting edit 
facility. called EDIT; a very powerful 
feature, it lists the program for editing. 
Screen editing. using cursor control. is 
possible only in EDIT mode. Individual 
lines or 24-line blocks can be edited. All 
control characters. e.g.. CR. are shown. 

Lines are presented in page mode. the 
width being determined by the length of 
the line. A window of 24 lines by 60 





RS232 to 
TTL converter 


columns is presented. the window being 
moved by cursor control keys. The 
EDIT mode can be used to merge Basic 
language programs or routines as well. 

The system also has a comprehensive 
Error message capability with clear error 
types being displayed in plain English — 
there is no Error No. N problem. 

The second instruction manual is 
probably one of the most comprehensive 
available but could be better laid-out 
and in a more logical order. It contains 
all the information needed — it is 
somewhat frustrating flipping back- 
wards and forwards all the time. 
Numerous program examples are given 
and the demonstration cassette supplied 
whets the appetite; it is a pity some 
loading errors were encountered. 

It is also possible to plug-in a 9511 


device 


Inverter 





maths chip which speeds the execution 
of trigonometric functions by around a 
factor of 10. 


Think of future 


Future products provided by the 
Americans and Japanese promise to 
make up our minds for us. Tandy 
recently has introduced a colour system 
selling for less than 5400. Commodore 
has a Pet-compatible system on the 
stocks for even less. Sharp and other 
Japanese companies are close behind. 

With those systems selling in the U.K. 
for less than £200. colour will become 
the usual method for displaying 
information. That should be taken into 
account when thinking about future 
purchases of computer equipment. 


20 mA 
source 


Low-cost RS282 to 20 mA converter — see ‘Printer Interface’. 





D REM ROTERENDE ELLIPSEN J.BEUMERS 

6 REM Dit programma roteert een ellips over 15 or, 50 gr.... 
10 MODE 6:COLORG O 5 10 15 

20 CLEAR 3000 

30 DIM А(250.0),В(250.0) 

40 FOR X=0.0 TO 2.ОЖРІ STEF PI/125.0 

50 ACN) =1 20. OxCOS(X) :z BOND =30. OXSIN(X) 
60 N=N+1. O: NEXT І 

70 FOR FI-O.O TO ҒІЖ11.0/12.0 STEP PI/12.0 

80 P=SIN(FI):@=COS(FI) 

90 FOR N=0.0 TO 249.0 

100 DOT ожа (М) -ЕЖЕ 0м) 4167.0, РЖА QD 4O%B(N)4127.0 10: NEXT 
110. МЕХТ:рОТ 167,127 15 

120 GOTO 120 
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FAST GRAF T E X T (The story of FGT) 
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Ue vinden het programma FGT uit onze bibliotheek zo belangrijk 
dat ue er graag een speciaal verhaal aan uijden. 

Deels om U een idee te geven van de mogelijkheden van dit 
programma,deels om diegenen die het programma al gebruiken nog 


wat extra informatie en mogelijkheden aan te bieden. 


WAT IS FGT ? 





ΕΟΤ is een programma in machinetaal dat karakters of tekeningen 

kan maken op het scherm.De routine is bruikbaar voor alle grafische 
modes.(ook de 18 kleuren modes). 

Het programma bevindt zich op de adressen vanaf é300 tot «/-é900. 


(Over die +/- straks nog meer). 


WELKE VOORDELEN BIEDT FGT 3 


— n 


Velen hebben al de routine uit het handboek "GRAFTEXT" gebruikt 

in hun programmgs. 

FGT is gebouwd op hetzelfde stramien,de mogelijkheden zijn echter 
nog sterk uitgebreid. 

Het fundamentele voordeel is natuurlijk SNELHEID.Deze moet toch wel 
een paar honderd keer hoger liggen dan die van het BASIC proaramma. 
Voor bepaalde toepassingen is deze hoge snelheid onontbeerlijk. 
GEHEUGENGEBRUIK:Met het BASIC programma zit de karakterinformatie 
dubbel in het geheugen:1 keer in DATA statements,1 keer in de 

HEAP in ARRAY-vorm.(vandaar ook de vertraging bij de start). 

FGT kan in het geheugen blijven zitten,U kan een nieuw programma 
laden en opnieuw ΕΟΤ aanroepen.Programma's met ΕΟΤ zijn dan 

ook altijd heel wat korter. (lijnnummers 40040-40200 verdwijnen). 
FLEXIBILITEIT:Met het bijgeleverde programma "TABLE CREATOR" 

kan U op een tamelijk eenvoudige manier zelf karakter-en symbool- 
tabellen creeren. | 

EXTRA MOGELIJKHEDEN :FILLFLAG,FILLCOLOR,POINTERPLAG,SPACE, ID. ..... 
AANPASSING:programma's die ontwikkeld zijn met de BASICroutine 

zijn heel eenvoudig em te bouwen naar FGT.De lijnnummers 1000- 


1040 vervangen de hele BASIC-routine. (zie FGT WORD GAME) 


67 


FAST GRAF TEXT 2/ 





Het gebruik van FGT 


U bepaalt een string(A&s KJHGDFTIUKJHDHDFHDHF SJDHG") 

Indien nodig pookt U bepaalde parameters weg op de voorziene 
locaties. (meestal zijn X,Y en CC(current color) voldoende). 
U roept de routine aan met CALLMÉ300,A& en daar gaat FGT.... 


WELKE PARAMETERS ZIJN VOORZIEN? 


(X beginpunt op Х-А5 

y beginpunt op Y-AS 

CC current color:kleur waarin getekend moet worden(0...23) 

DF dimensionflag:vergrotingsfactor 0...15 
als DF groter dan 0 worden de karakters getekend met dubbele 
lijnen.Voor bepaalde toepassingen kan dit door een pook 


vermeden worden. 


VF vertikaal flag: Ü= horizontaal 
1= vertikaal 
ZF zinf lag П-уап links naar rechts 
1-van rechts naar links 
PF positionflag П-де nieuwe X en Y worden gebruikt 
1=de string wordt getekend na de vorige string 
(zoals PRINT A&;....) 
SP spatie tussen de karakters of symbolen 
ІП index vertikaal 
A& bevat het/de karakter(s). 
belangrijk:A& mag ook een geïndexeerde variabele zijn uit 
een ARRAY ! bv B&(3,4) 
ΕΕ fillflag indien=1 wordt de achtergrond van het karakter 
vooraf gewist met de kleur, bepaald in FC. 
De afmetingen van de FILL worden bepaald door SP en ID. 
FC de fillcolor. 
De routine bevat een AUTOINDEX:als bij het tekenen van een string 
de rand bereikt wordt, dan wordt automatisch een volgende lijn 


genomen. 
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BASIC & MACHINETAAL IN DAI BASIC 


Bij gebruik van machinetaal en basic moeten ue steeds opletten 
dat de routines mekaar niet gaan storen. De boosdoener bij deze 
mogelijke conflicten is meestal BASIC, die zonder maatregelen 
geheugenplaatsen van machinetaal zou kunnen afsnoepen. 

Daarom maken ue duidelijke afspraken ivm geheugengebruik. 

In DAI-BASIC zijn daarvoor een aantal POINTERS terbeschikking 


(geheugenwijzers zou een goede vertaling kunnen zijn). 


Deze pointers zijn: START OF HEAP 29B 28Ε 
SIZE OF HEAP 29D 23E 
START OF TEXT 29F 2A0 
START OF SYMBOL 241 2A2 
END OF SYMBOL 2A3 244 
BOTTOM SCREEN 2A5 2A6 


Bekijken we deze POINTERS bij een “blanco! 48K machine: 


FC UTILITY V3.3 START HEAP - é2EC 








>D29E 246 

-SIZE HEAP = é100 

O29BiEC 02 START TEXT = É3EC 
ΟΖΔΟ 05 

“START SYMB = É3ED 

END SYMB = 6ЗЕЕ 


BOTTOM SCR =éB35D 


Voor andere geheugenconfiguraties zel U dezelfde he seni ne 
krijgen behalve BOTTOM SCREEN. 

Bij POWER ONN en bij HARD RESET worden deze pointers telkens 
opnieuw geinitieerd met deze waarden,de informatie komt uit 
de BASIC ROMS, 

Na HARD RESET is uw BASIC programma blijkbaar niet meer aan- 
wezig in het geheugen.Het is er echter nog wel,maar de geheu- 
genwijzers vinden uw programma niet meer terug. 

Het hoofdstukje in het handboek "WHAT TO DO IF AN ACCIDENTAL..." 
р.124 is dus heel eenvoudig te omschrijven: 

Bekijk in UT de inhoud van de POINTERS ‚noteer dit en zet de 


informatie daar terug na RESET. 


69 


FAST GRAF TEXT 3/2 


Bekijken ue de situatie na invoer van een kort BASIC programma: 


10 =5 

20 B=A+A 

30 PRINT B 

40 END 
PC UTILITY V3.3 START HEAP -é2EC(ongeuijzigd) 

AGS ГА D D D n 

9298 * AA — SIZE HEAP =é100(ongewijzigd, 
029В EC 02 00 O1 EC oá ег із geen CLEAR geweest) 


04 50 B3 ; Sg 
9280 03 10 Οὔ, IF 05 99002, START TEXT =63ЕС(опоеші jzigd) 


START SYMB =é41D 
END SYMB -é41F 
BOTTOM SCRN=EB350 (ongewijzigd) 


Onze 4 programmalijnen bevinden zich dus van é3EC tot 6410 

In de SYMBOL TABLE zijn 2 variabelen terecht gekomen А en B, 
deze vinden we terug ор de adressen 6410-641Ғ. 

Na HARD RESET bevatten de POINTERS terug de informatie van р.3, 
indien U bovenstaande informatie invoert is uw BASIC programma 


teruggevonden, 


We zoeken het BASIC programma en de SYMBOL TABLE op ir het 


geheugen: 


D3EC 4OF (ge TEXT BUFFER) 


OSEC OA оо ол a5 lijn 10 Lijn 20 
Ο3ΕΟ 40 02 14 00 OO OO ОЗ|ОА 00714 AS 40 09 ΑΟ 40 O2 
0400 40 02/08 OO 1E AD 01 10 40 09 FF|os oo 28 84 oo 


> lijn 30 lijn 4б 
D410 41Ε (de SYMBOL TABLE) 


0410 11 41 14 ОО ОО оо оо 11 42 14 OQ 00 00 ОО ОО ОО 
(А) N (B) 


na RUN:00 DD 00 05 00 00 DO OA 
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Nu brengen we de POINTERS in verband met een vereenvoudigde 
memorymap en dan wordt het wel duidelijk waar we FCT en andere 
machinetaal programma's veilig kunnen laten opereren. 


RA MM AP 


BASIC WORKSPACE 


(system variables) 
(math area ) 
(screen variables) 


„ee 


ns 29B-29C= START НЕАР | 
nt 28D-28E- SIZE HEAP f(1) 


(arrays ) 


29F-2A0= START TEXT BUFFER 


TEXT BUFFER 
(het BASIC programma) 


2A1-2A2= START OF SYMBOL TABLE 


SYMBOL TABLE 


(gewone variabelen) 


2A3-2A4= END OF SYMBOL TABLE 


ongebruikte ruimte 
maar niet veilig, 
mogelijk wel gebruikt 
door langer 


programma 2A5-2A6= BOTTOM SCREEN RAM (2) 


VIDEO RAM 


(1) Als deze ruimte te klein is kan de boodschap 
"OUT OF STRING SPACE" verschijnen ееп grotere"CLEAR" 
zal meer ruimte creeren voor strings en arrays,de 
volgende POINTERS worden namelijk opgeschoven. 
(2) Als het BASICprogramma tegen deze POINTER aanloopt 
^ verschijnt de boodschap "OUT OF MEMORY" 
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——— II 


Waarschijnlijk is het al duidelijk dat alle geheugenlocaties 
vanaf START HEAP tot einde RAM door BASIC kunnen geclaimed 
worden voor strings,arrays,BASIC programma,SYMBOL TABLE of 
VIDEO ЯАМ, (meer dan 22K іп MODES 5&6!). 
De aangewezen methode om veilige ruimte te reserveren voor ons 
machinetaal programma is dan ook: 
-de pointer "START HEAP" veranderen,zodat deze wijst naar 
een hogere RAM-locatie. 
-de overige pointers aanpassen. 
Op p.3 van dit verhaal kunnen we vaststellen dat "START HEAP" 
normaal wijst naar adres é2EC. 62 is de high byte (inhoud van 
é29C, éEC is de low byte (inhoud van é29B). 
De "START HEAP" pointer kunnen we wijzigen door POKE of door 
SUBSTITUE in UTILITY. 
vb.: POKE é28B,é00:POKE &29C,é09 
De "START HEAP" pointer wijst nu naar é900,zodat de ruimte 
é300-é900 gereserveerd is voor machinetaal. 
De overige POINTERS moeten echter eerst aangepest worden door 
CLEAR XXXX of NEW !! 
Nu kunnen we ongestoord een machinetaal programma plaatsen op 
de adressen tussen 6300 en 6900. (inlezen in UT met R of intik- 
ken met SUBSTITUTE of laten wegzetten door BASIC met POKE,de 
instructies kunnen vb ingelezen worden van DATA lijnen). 
Пр de tekening van p.4 is deze ruimte voorgesteld door de 
gearceerde ruimte. 
Ue hadden al verteld dat FGT zich bevindt op de adressen é300- 
€900.We kunnen ons de moeite van het aanpassen van de POINTERS 
besparen door deze POINTERS mee te SAVEN, samen met het 
machinetaalprogramma.Bij het inlezen is de organisatie van 
de RAM al klaar voor gebruik, 
Ше SAVEN vb in UT : W29B 900 FGT«POINTERS 
Het is zelfs mogelijk om een BASIC programma mee te SAVEN in 
UT.Ue moeten SAVEN vanaf é28B tot de inhoud van de pointer 
op é2A3-é2A4.(end symbol table) .FGT is op tape gezet volgens 
deze methode:de pointers+FGT+BASIC programma. (lijnnummers 
1000-1040 уап ΕΟΤ WORD бАМЕ).Ма READ in UT is alles klaar om 


een nieuw BASIC prógramma met ΕΟΤ te creeren. 
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Het is ook mogelijk om FGT te laden en te saven vanuit BASIC. 
Dit kan erg prettig zijn voor programma's die definitief klaar 
zijn vb spelletjes,educatieve programma's.... . 

Het inlezen kan dan gebeuren met LOAD, het BASIC programma zorgt 
dan verder er uel voor dat FGT op zijn juiste plaats terecht 
komt.Zoals U op onderstaande listing kan merken gebeurt dit door 
ЕСТ in een paar arrays te stoppen en te SAVEN met SAVEA. 

Bij het inlezen gebeurt dan tueemaal de volgende truuc: 

De array wordt ingelezen en in de HEAP geplaatst,dan wordt de 
HEAP POINTER gewijzigd zodanig dat het ingelezen stuk machine- 
taal onder de HEAP 21%.Пр lijnnummers 50007-50010 kijken we door 
middel van een CHECKSUM na of ΕΟΤ al aanwezig is,dit om te 
vermijden dat we bij iedere RUN opnieuw de arrays gaan laden. 


50000 
50005 REN TEST PROGRAM ALREADY IN MEMORY 

50007 FOR 11=#100 TO #526: CHSZ=CHSE+PEEK (TL): NEXT 

50010 IF CHS%=62180 OR CHS2=61612 THEN PRINT :PRINT "ЕБТ PROGRAM ALREADY IN MEMORY, END INIT*:60TQ 50080 
50020 POKE #29E,HEC:POKE #29C,2:CLEAR 2000:REM RESET HEAPPDINTERS 

50030 PRINT :PRINT "SET READY ARRAYS WITH FGT PROGRAM, TYPE SPACE" 

50040 IF BETCCH20 6070 50040 

50045 PRINT :PRINT "LOADING ARRAY WITH PROGRAM" 

50050 DIM AX(LS3)sLOADA AZ *P/PFGT V2.0*:REM FIST BYTE ON #2F0 

5000 POKE 429R,47C:PÜKE #29C,5:CLEAR 2000:REM SET HEAP AFTER FGT PROGRAM 

50085 PRINT :PRINT “LOADING ARRAY WITH TABLE" 

50070 DIM AL((#900-#580) /441):LOADA ΑἹ "P/TFGT 91,13 

50075 PRINT :PRINT "INIT READY" 

50080 POKE #298, #900 MOD #FF:POKE #29C,#900/AFF: CLEAR 2000 

50085 REM FÜR ADR=#374 TO #378:POKE ADR,O:NEXT:REM CANCEL ERROR REPORT 

50090 PRINT :PRINT :60T 4 

50200 REM ARRAY COPY 

50205 PRINT :PRINT :PRINT "ARRAY COPY" 

50210 REM 1) FGT PROGRAM (420 #525) 

50220 Dës (4526-432F0) /4+1: ADRL-EZFO: Mz" P/PFGT. V2, 0" 

50230 GOSUB 50300 

50240 REM 2) FET TABLE (4580 #8FF) 

50250 Däi (4900-4580) /441: &DRZ- 4580: 8$-"P/TFGT VL, I" 

50260 PRINT :PRINT :80T0 50300 

50300 DIM АХ (0М2) 

50210 FOR 11-0 TO DMZ 

50320 AT(IX)-(PEEK(ADRY) SHL 24) IOR (PEEK(ADRY+1) SHL 14) IOR (PEEK(ADRT4Z) SHL 8) IOR PEEK (А+) 
50340 ADRY=ADRY+4: NEXT 

50150 PRINT :PRINT "SAVE ARRAY ";ñ$ 

5030 PRINT :PRINT "SET RECORD, START ТАРЕ, ТҮРЕ SPACE" 

50370 IF BETCCH20 GOTO 50370 

50380 SAVEA AX AS 

50390 RETURN 

50500 REM POKE VARIABELS AND CALL MLP 

50510 С=С ОСУ: FL-FFLERBORSPFL RAO ZFLIRZOHVET IR 104DFZ;POKE #20, CH FOKE #2F1,F% 
50520 POKE #2F2,X% MOD 254:POKE B2FZ,X1/256:POKE ЖОҒА, Yl 

50530 POKE #2F5,SP%:POKE #2F4, IDY 

50540 CALLM #300, A$: RETURN 73 
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Omdat deze techniek van machinetaal laden met arrays ook 
bruikbaar is voor andere routines gaan we even door met de 


bespreking van dit programma: 


50020 RESET HEAP POINTER OP é2EC(standard) 
50030-50050 LOAD ARRAY MET EERSTE DEEL MACHINETAALPROG, 
50060 ZET HEAP POINTER OP é57C(boven het vorige deel ml) 
50065-50075 LOAD TWEEDE DEEL MET ARRAY 
50080 ZET HEAP POINTER ANDERMAAL HOGER 

TELKENS CLEAR XXXX OM ANDERE POINTERS AAN TE PASSEN! 
50085 POKES OM EEN DEEL VAN FGT TE UISSEN(ERROR REPORT) 
50090 TERUG NAAR PROGRAMMA МЕТ "GOTO ..." 


"GOSUB" is niet bruikbaar omdat er na verplaatsing 
van de HEAP POINTERS (en dus na verschuiving van het 
programma) een verkeerd terugkeeradres op STACK 
zou zitten, 

50200-50390 Tweemaal het ml programma ir ARRAY onderbrengen en 
SAVEN als ARRAY. 

50500-50540 Nogmaals een paar lijnen met initiatie en aanroep 
van FGT.C en F zijn samengestelde vlaggen uaarin over 
de verschillende bits FC,CC FF,PF,2F,VF,DF onder- 
gebracht worden. In het FGTprogramma worden deze bits 


E 


afzonderlijk geevalueerd. 


Het SAVEN en LADEN van FCT in ARRAYS is erg handig voor definitieve zs 
programma's.Wanneer de tabel van FGT echter uitgebreid wordt moet 

er opnieuw gerekend worden want dan moet de dimensie van de ARRAYS 
aangepast uorden.Daarom verkefzen we toch de methode van WRITE en 

READ is UT,de HEAP POINTERS inclusief. 


A —————_————— 


Het FGT-pakket bestaat uit 4 programma's: 
1. FGT machinetaal+pointers+BASIC subroutine 

(Na R in UT is alles klaar om een nieuw programma te creeren) 
2. NEW DEMO FGT 
3. FGT TABLE CREATOR (zie volgende bladzijden) 
4. FGT WORD GAME (zie listing) 


FGT TABLE CREATOR 


Table Creator is een programma dat de mogelijkheid geeft om de 
tabel van FGT eenvoudig uit te breiden met nieuwe characters of 
tekeningen. 

Dit gebeurt in een matrix van 16 X 16,U hoeft evenwel niet de 
volledige matrix te gebruiken. Indien U vb een matrix van 8 X 8 
prefereert gebruikt U bij het invoeren alleencoordinaten tot en 


met 7, 0,0 is een element van de matrix! 


Hoe ziet de tabel van FGT er uit? 


De tabel bestaat uit aaneengesloten drawinformaties voor characters, 


U vindt telkens terug: 1) een byte met de ASCII waarde 
2) een byte met het aantal DRAWopdrachten 


voorbeeld:codering van het character "A"(eerste in de tabel) 


(4 


assa 41 ΒΞ 11 15 51 55 13 53 15 37 3? 55 42 GA 11 17 


op hex 580 zit de ASCII waarde van "A":hex 41 
hex 581 @5:er volgen 5 dubbelbyte draw informaties 
hex 582-58B : de DRAWinformaties 
vb: hex 582 hex 583 
11 15 draw in de matrix van 1,1 


naar 1,5 


op hex 58B volgt de ASCII waarde van "В":Һех 42 


de tabel wordt afgesloten met hex SA,hex FF 


Üm de tabel uit te breiden: 
laad eerst het FGT demoprogramma,laad daarna FGT TABLE CREATOR. 
Na RUN vraagt het programma: 

"DECIMAAL ADRES EINDE HUIDIGE TABEL (2118=STARDAARD)"? 
Пр 2118 zit het einde van de tabel zoals ze in het FGTdemo progmma 
geladen wordt,Indien U ondertussen de tabel al heeft uitgebreid 
moet U natuurlijk het huidige einde gebruiken. 
Is er nog geen uitbreiding gebeurd dan voeren we in 2118. 
De werkmatrix wordt nu gecontrueerd (MODE 4А (6 a 
“Er wordt nogmaals gevraagd:STARTADRES ‚hier wordt nu wel telkens 
het actuele tabeleinde toegelicht,indien alles goed gaat voert U 


telkens het gegeven adres in. 
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Na invoer van het startadres wordt het character gevraagd. 

De standaardtabel bevat de Hoofdletters+leestekens,zodat het voor 
de hand ligt om verder te gaan met de kleine letters. 

U kan vb invoeren "a",en дап de kleine letter "a" construeren, 

U kan "а" evenwel ook gebruiken als tekening en een willekeurige 
tekening construeren.Die tekening kan U dan later gebruiken met 
CALLMhex300,A& (vooraf :A&="a"), 


U krijgt nu een menu met: 
ΕΞΕΝΤΕΗ K=KILL S=SHOW D=DUMP T=TOTAL 


T geeft U in grafische mode een overzicht van de huidige inhoud 
van de tabel.Als U een nieuw character geconstrueerd heeft 
vraagt u eerst DUMP! 

D DUMP zet de informatie van de nieuwe tekening in de tabel en 
sluit de tabel af .T toont U daarna of de nieuwe tekeRing іп ordeis. 
K KILL zet de adrespointer terug op het vorige einde en laat U 
opnieuw beginnen aan de constructie, 

S SHOW TABLE:geeft een overzicht van de ingevoerde drawopdrachten. 
E ENTERtom telkens nieuwe drawopdrachten in te voeren. 

X1,Y2,X2,Y2 ? voer de gegevens in,gescheiden door comma's. 

15 is de maximum coordinaat. 

Om een punt іп te voeren neemt U Х1-Х2 en Y1-Y2. 

Schuine lijnen die niet onder een hoek van 45? lopen worden 

niet opgenomen in de tabel,omdat dit geen goede resultaten geeft 
metgrotere schaalfactoren. U kan ze natuurlijk wel invoeren punt 
per punt. 

Nadat U de coordinaten heeft ingevoerd wordt de matrix gevuld met 
de overeenkomstige punten en verschijnt de vraag: 

DEZE WAARDEN INVOEREN ?J/N 

J:de drawopdracht wordt opgenomen in een werktabel. 

N:de lijn wordt gewist,de opdracht wordt niet opgenomen, 

Mogelijk worden hierbij punten gewist van vorige drawopdrachten, 
de gegevens zitten toch juist in de tabel. 

Als de constructie klaar is:D (DUMP) en T(TOTAL). 

Als de printer aanstaat krijgt U ook een grafische printout van 
het nieuwe character(met EPSONgrafieken) «het adres+ASCIlwaarde, 


U hoeft dan niets te noteren. 
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‘memmen 


FGT opent knappe perspectieven: 


-invoeren van de tekeningen van het schaakspel,het grafisch 
gedeelte wordt dan een eenvoudige klus,en vraagt slecht +/- 1.5K 
geheugenruimte,door de snelhied krijgt het programma dan ook 


professionele allures. (Als de schaakstrategie dan op peil staat) 


-compatibiliteit met andere micro's:Toestellen zoals PET,OSI 
CHALLENGER, SHARP MZ-80,TRITON,TRS-80,VIDEO GENIE gebruiken 
grafische characters om grafieken te simuleren. 

Construeer met FGT TABLE CREATOR de betreffende CHARACTERSET 
(de meeste zijn in een matrix van 8X8),bestudeer de memorymap 


van de videoram en U kan het programma zo omzetten. 


-U hoeft zich niet te beperken tot de 16X16 matrix: 

gebruik bvb 4 tekeningen die hor, en vert, aansluiten en samen 
een tekening vormen:U kan dan een matrix van 32X32 gebruiken!!! 
Dit is een ideaal middel om in DAIgrafieken constructies te 
gebruiken die anders toch nogal wat reken-en tekenwerk vragen, 


zoals cirkels,ruiten,ventjes,auto's enz.... 


-U hoeft zich ook niet te beperken tot eenkleurige symbolen: 

maak complementaire matrix in andere kleuren,zet de FILLFLAG CFF, 
en construeer de volgende matrix op dezelfde plaats! 

Houdt in 16kleurenmodes wel rekening met de mogelijke kleuren- 
conflicten! 

-Neem eens contact met de redactie voor je aan een nieuwe tabel 
begint,we hoeven niet allemaal hetzelfde werk over te doen. 


Wie een nieuwe tabel instuurt krijgt de bestaande tabellen in 


ruil... 
succes... 
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10 


20 


30 


40 


DO 


60 


100 
108 
109 
110 
112 
115 
114 
115 
116 
117 
118 
120 
124 
125 
127 
128 


200 


202 
203 
210 
215 
220 
225 
250 
252 
254 


КЕМ {αἱ word game 448 


ka bé Fa Fa Fa 


REM word game met fgt ` 

REM het woord wordt ingelezen uit data 

REM de letters worden door elkaar gegooid 

REM dit nieuwe woord wordt gedisplayd 

REM de speler tracht het originele woord — 
REM in te typen 


REM opgave 
DIM АФ (255) 
READ A$:IF A$<>"STOP" THEN 4%(00) -АФ:00-00--1:(60Т70 109 
R=RND (QQ) : A$=A$ (R) 
CNT! =O (parameters die maar 1 keer bepaald moeten wor ci) 
СС=12: DF-0: VF=0: ZF=0: PF=1: SP-8: ID=10 Ф 
COLORG 8 ο 3 12:MODE A:FILL O,YMAX/2 XMAX,YMAX O 
X220: YzYMAX- SO: GOSUB 1000 
L-LEN(CA$):DIM В%(25) 
FOR T-O TO L-1 
R-RND (25) de letters willekeurig verspreiden over B&(X) 
IF B$(R)«»"" THEN 118: ВФ (К) -MID$ (АФ, Т, 1) 
NEXTs:sC$-"":FOR X-O TU 25 
IF B&(X)<>"" THEN C$-C$-4B$ (X) 
NEXT (nieuw woord samenstellen) 


CALLM #300,C$ : aanroep van ΕΟΤ 


plaats hier GOSUB 40040 indien U onze routine vit het handboek 


μα bé Fé bé Fé Fa 


REM input  (A&-C&) gebruikt. 


REM initiate input 

СС=0: X220: Ү=40: GOSUB 1000 

FOR X=O TO L-1 
П%-МІр6(4%,Х,1) 
IF EF=1 THEN EF-O:SD$-"OUT OF TIME..":GOTO 540 
G=GETC: IF б-О THEN CNT!=CNT!+0.1:GOSUB 2000: БОТО 220 
IF G=ASC (D$) THEN 235 
SOUND 1 O 15 O FREQ(100):WAIT TIME 10:SOUND OFF 


GOTO 220 


143: 


235 
240 
250 
299 


300 
310 
320 
330 
340 
350 
360 
379 
1000 
1010 
1020 
1050 
1035 
1040 


2000 
2005 
2007 
2010 
2020 
5000 
5004 
5005 
3010 
5015 
5020 
5025 
5030 
5035 
5040 
5045 
3050 
5055 
5060 
5070 
5090 
3095 
5097 
5100 
5200 
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1 


SOUND 1 O 15 O FREQ(1000):WAIT TIME 5:SOUND OFF 
CALLM #500,0% (de letter displayen) 
NEXT 

WAIT TIME 50 


REM score 

SC-LX100—-CNT ' #10 

SCS$=STRS (SC) : SC#=_EFTS (SC$, LEN( SCS) -2) 
SD$="SCORE -" ος 

CC-12: X20: Y-YMAX—-20: BOSUB 1000 


CALLM #300,SD# (scars displayen) 
IF GETC-O THEN 360 
GOTO 110 


C=FC*#40+CC: F-FF £3S$580-PF X40-UF ΚΗ͂ΖΟ ΕΡΕ 
POKE #2F0,C:POKE #2F1,F 
POKE #2F2,X MOD 256:POKE #2F3,X/256:POKE #2F4,Y 


POKE #2F5,5P 
FOR X=#2F2 TO #2F4:POKE X+5, PEEK (OX) : POKE X«8, PEEK (X) NEXT) 


N 
хаз e lijnnummers 40040-40200 uit het BASIC-programma 


REM time score 

CNT=CHNT ! 

IF CNT+5>=XMAX THEN EF=1 RETURN 

FILL CNT,10 CNT+5,30 3 

RETURN 

DATA 1274567890 (cen test-woord) 

DATA VIOLISTE,FIETSPAD, HANDBOE I , TELEGRAM, RIOOL 
DATA SCHAAR, FIETSBEL., MISTLAMP, DIREKTEUR, OVEN 

DATA OORLEL, RADIO, VILTSTIFT, HORLOGE, VULPEN, POTLOOD 
DATA BLOEMKOOL, ACCU, LUIDSPREKER, CASSETTE, TANG 

DATA BATTERIJ, GLOEILAMP, TANDPASTA, SCHOENLEPEL , COWBOY 
DATA BRIEF, CARBON, SCHRIJFMACHINE, CACTUS, GEWEI 

DATA BUREAU, TELEVISIE, KABELNET, OOGARTS, POEDER 

DATA SPORTTAS, VLOERBEDEKK ING, FOTOTOESTEL , PROJECTOR 
DATA PILOOT, AGENDA, HANDREM, asbak, vegetarier 

DATA TOILET, REDDENSPREI, OL IEBOL , DENNENBOOM 

DATA JOJO, ZADELLEER, UIEN, EIEREN, TROMPET 

DATA VUURWERK , VOET ZOEKER , ROE I BOOT , STRIJKBOUT , POTLOOD 
DATA WORTEL , CASSETTE, PRULLENBAK, LAMP, PLATENSPELER 
DATA STICKER, SOL DEERBOUT , GITAAR, НАМЕК, DRUMSTEL 
DATA BENZ INE, GEHAKTBAL , TENNIS, RACKET, COMPUTER 

DATA SCHILDERIJ, CALCULATOR, POSTER, VENT ILATOR 

DATA ETUI, GORDIJNEN, MAPJE, BUREAU, KLADBLOK, BONGO 
DATA SCHEIDSRECHTER, SCHOENSMEER, VETER, ONTBIJTKOEK 
DATA STOP (geat Ὁ zelf maar door) 


de woordenschat is ontleend uit het programma"HANGMAN" 
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IN OTHER WORDS. 


What to look for in coming editions,new contest:an article 
about an application of DAI.(SOFT or HARD).First price:9511 !! 
Ribbon for TX-80:PELIKAN GR1,Troubles with colour generation? 
A capacitor across the crystal might help. 

А crochetwork+screen сору++а programm to print the characterset. 
CALLM in DAI-BASIC, an introduction 

Entry points of routine SET MODE 

Schematics cassette interface 

FLASH:a machine language routine that flashes COLORG in 
background operation.(Interrupt 7) 

PRIME NUMBERS 

A new challenge:the happy numbers 

Here they are : the prime numbers 

From "Educational Computing" :COLOUR GRAPHICS 

Screen copy on MX-80 from the game "SURROUND". Ше had to learn 
about TRS-80 Graphics to create this one! 

A lou cost RS232 to 20 mA converter from PCW. 

FAST GRAF TEXT 

Parameters of FGT 

BASIC & machine language in DAI BASIC 

TEXT BUFFER & SYMBOL TABLE 

A RAM MAP: A safe place for ml procedures: 

change the contents of 6298 and ё29С (The START HEAP POINTER), 
execute CLEAR,and ycu have a safe area for ml programms. 

Hou to LOAD and SAVE machine language programs through ARRAYS. 
Don't use GOSUB to CALL such routine:The return address on STACK 
doesn't macht to RETURN.(Use GOTO) 

FGT TABLE CREATOR 

ЕСТ WORD GAME. (Could be used with our routine in the handbook 
GRAFTEXTSUBDEMO,but might be too slow for the game) 


GDS 


We will supply more translations(as we did this time with articles 
from NEWSLETTER 2),but we can't avoid the delay. 


fn 


Some programms of the library that are available in FGT version: 


555 DESIGN PROGRAM 
MASTERMIND 

ALGORITHM OF HORNER 
MUSIC ARTIST 

CLOCK READING TRAINING 
WORD GAME 

NEW DEMO 


tt n U 


A nice "FILM TITLE SIMULATION" 


2000 Wi=" From The Paramount Picture "'HATARI'' BABY ELEPHANT WALK I 
2002 POKE #75,32 

2005 FOR Ші-0.0 TO 1.0 

2010 FOR W=0.0 TO LEN(W$)-19.0 

2020 B4zMIDS(WS, U, 19) 

2010 CURSOR 20,11:PRINT B$ 

2040 WAIT TIME 1O:NEXT: NEXT 

2050  B$-MIDS(W$, 38,17! 

2060 CURSOR 20,11:PRINT B$ 

2080 RETURN 





αι ων — O (D OO —] O) (rT EIN 5 


— — 3S l3 cla c3 


COLO 


FDD1 
FDO4 


FDOS 


FDO6 


DAI PERSONAL COMPUTER °°° DAI PERSONAL COMPUTER °°°DAT 
zwart alle adressen in HEXvorm! 
blauw — n h 
. ge 29B-29C start heap 131,0 
28D-29E size heap 
PERES 29F-2A0 start text buffer 131,1 
s: 2A1-2A2 start symbol table 131,2 
παν. 2A3-2A4 end of symbol table 135,2 
E 2А5-2АБ bottom screen гат 
grijs 
blauw 
ΓΕΘ 75 cursor symbol MODE  ΧΜΑΧ 
TOSE 74 cursor mode 
To adu 72-73 cursor position 1/2 | 
l.groen 3/4 159 
geel 5/6 345 
uit 40,28 cass motor 1 ON 
40,18 cass motor 2 ON MERGE 
40,30 1 and 2 OFF есі БАН XXX 
01 DAD"VAM 
RG R1 R2 R3 R4 OEDIT BREAK/BR 
2021 22 23 eL ОАВ "В" 
:R2*R1 HAHA °POKE 135,2 
:R1*R2 HAHA 42K “ХХХ 
:R3*R1 R4*R2 12K 2XXX IMP INT IM 
:R1*R3 HAHA BK 1XXX ӘТМР ЕРТ 
°CLEAR ΧΧΧΧ 
О 
CTRL COLOR LIJN CTRL COLOR ΛΝ 
ВЕКЕ BFEE 11 BGA? BIAB opOKE 135,2 
BF69 BF68 10 B921 B920 : 
BEES BEE2 g B83B B89A CTRL&COLOR BYT 
BESD BESC 8 B815 B814 MODE CTRL 
ВОО” BDD6 7 B78F B78E 1A/2A BAE? 
BD51 BD50 6 B709 B708 ВАБ1 
BCCB BCCA 5 B683 B682 B9DB 
BC45 BC44 4 B5FD B5FC B955 
BBBF BBBE É B577 B576 3A/4A ACD3 
BB39 BB38 2 B4F1 34FQ0 AC4D 
BAB3 BAB2 1 ВАБВ ВАБА АВС? 
BA2D ВА2Г 0 B3E5 B3E4 AB41 
SA/6A 7557 
b2 page signal FFOO ser.inp.buff 74D1 
b3 serial out rdy FFO1 50-6 keyb.inp. 7448 
b4 right paddle b7 їп? DCE 75С5 
b5 left paddle FFO2 Interr.reg. 
ΒΒ random data FFO3 51 frame error 
b7 cass. input b2 overrun error 
Trigger paddle b3 rec.buf.loaded FF09 
0-3 volume ch.1(0) bá trans.buf.empty FFOA 
ж. SE ç FFD4 COMMAND REGISTER 211; 
4-7 volume noise FFO5 BAUD RATE REGISTER 
bÜ cass.out ΕΕΟδ ser.out buf. FFOD 
b1/2 paddle select ЕҒ07 keyb.output 8253 
55 paddie enable FFO8 interr.mask reg. CH 9 
b4 cass motor 1 CH 1 
b5 cass motor 2 TEST EVENT CH 2 
b6/7 ROM BANK SWITCH PEEK(ÉFDOO) IAND 32 
PEEK(ÉFDOO) IAND 16 
PEEK(ÉéFDOO) ТАМО 48 























PERSONAL 


output ѕсгп+ 
RS232 

screen only 
edit buffer 
read from 
edit buffer 


YMAX 


64 
128 
255 


AK 





[T 


P ЕРТ 


EAK 


ES IN A-MODE 





COLOR LIJN 
ΒΑΕΡ 3 
BA60 2 
B9DA 1 
B954 D 
ACD2 3 
ACAC 2 
ABC6 1 
АВ40 D 
7556 3 
74D0 2 
744A 1 
1304 D 
TIMER 0 
TIMER 1 
TIMER 2 
TIMER 3 
TIMER 4 
FCOO/FCO1 
FCO2/FCO3 
ЕСО4/ЕСО5 


STATUS FCO6/FCO7 


DAI-DEALERS KAK COMPUTERVERENIGINGEN 








" D.I.L.-ELEKTRONIKA 
Mijnsherenlaan 108, 3081 СН Rotterdam 


ALLE DOE-HET-ZELF ELEKTRONIKA - TECHN. TIJDSCHRIFTEN EN -BOEKEN 





LEGOTRONICS 
Middenstraat 8 

8800 ROESELARE BELGIE 
tel. 051/207878 


ORDIMAX MULTISOFT 
Bue de la Bonnefemme 11 | Rue Bargue 25 
4050 GRIVEGNEE BELGIE 75015 PARIS FRANCE =< 
7838837 Š 
TEE EE MSB R.NEDELA 
Steenstraat 40 Р MARTKSTRASSE 3 
9711 GP GRONINGEN NEDERLAND POSTFACH 1420 


D7778 MARKDORF GERMANY 


е n O x nn 


COMPAC HCC NEDERLAND hobby computer club 
Plaats 25 Prinsenhof 11 
2513 AD DEN HAAG NEDERLAND 2641 RN PIJNACKER 

NEDERLAND 

QU UR 
DAI BRUSSEL Ee 
Raketstraat 60. OLS T 
1130 BRUSSEL BELGIE u Ee 
02/2166010 031/589674 
EE 

DAT NEDERLAND Stichting BASICned 
Van Vollenhovenstraat 15A Tolakkerweg 81. 


3016 BE ROTTERDAM NEDERLAND 


3739 JJ HOLL.RADING NEDERLAND 
010/ 361288 


лы. 


DIDACOM computersk&onderwijs 

p/a I.BROEKMAN  AVENBEECK 98 
2182 RZ HILLEGOM 

-2520/18032 NEDERLAND 


